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GEBRUJhERS CLUB 



een club van 6502 
□ebruikers 



Het doel van de vereniaina is: het bevorderen van de kennlsuitwisselina 
tussen de aebruikers van 6502-comDuters, zoals KIM. SYM, JUNIOR, fiIM-65 
SYSTEM 65, flCORN, PET en CBM, APPLE, CHE-1, OTflRI, de Proton-comouters' 
ITT 2020, PEORCOM, PC-100, OSI, BBC, VIC-20 en COMMODORE 64. BOSIS lOS' 
PfiLLfiS, SBC 65/68, FORMOSO, ORIC-1, fiCE 1000, KEMPflC Svstem 4. NCS 6502' 
MINTfl, enz. enz. 

Deze kennisuitwisselinq wordt o.a. aerealiseerd door zesmaal oer laar 
DE 6502 KENNER te oubliceren, vi.if maal per laar cl ubbi leenkomsten' te 
houden, een cassettebibl iotheek in stand te houden en Daoerware-service 
te bieden. Daarnaast orqaniseren de leden zelf reaionale bi leenkomsten. 



Verschijninqsdata 
DE 6502 KENNER 



Bi.jeenkoMsten 
van de club 



derde zaterdag 
van de maanden: 
februari 
aoril, juni 
august us 
oktober 
deceinber 



derde zaterdaa 

van de maanden: 

lanuari 

maart 

mei 

seotember 
november 



Reqio Den Haaa/R'dam e. o. 

Inl. Gerard van Roekel 

V. d. Palmstraat 11-C 
3135 LK Vlaardinaen 
Tel. : 010 - 351101 



Reqio flrnhem e. o. 

le en 3e Ma-avond 
in HET DORP 
(zaal wordt 

hal 

Inl 

Tel. 



V. d. maand 



aanaeqeven in de 
van de oersoneelsf lat ) 
Henk Deutekom 

08303 - 8987 



De KIM GEBRUIKERS CLUB NEDERLflND is een volledia onaf hankel i ike vereni- 
aina met statuten en een bestuur. De club is inoeschreven bi i de Kamer 
van KooDhandel en Fabrieken voor Hollands Noorderkwartier te filkmaar, 
onder nummer 634305. 



Samenstellina van het bestuur is thans als volat: 



Voorzitter ! 



Erevoorzitter ! 
Sekretariss 



Penningmeester: 



Ledenadm i n i st rat i e : 
Redaktie DE 6502 KENNER 



Hard-/Software: 



Promotie! 
Ereleden: 

Ad res van de vereniaina: 
L i dmaat schaooen : 



Advertentietarieven: 



Daae 1 i ,ik s .best u uj : 
Rinus Vleesch-Dubois 
Fl. Niahtinaalestraat 



2037 NG Haarlem 
Sieo de Vries 
Ruud Uohoff 
Voorburaoad 10 
6843 EM 'flrnhem 



212 



(023 



330393) 



(085 - 816935) 
(19.00 - 20.00 
Riet Uohoff - Burahoorn 
voor adres: zie bi] sekretaris 
Leden: 

Ruud Uohoff (zie bii sekr. ) 
Millem L. van Pelt 
Jacob Jordaensstraat 15 
2923 CK Krimoen a. d. IJssel 



(01807 - 
(05490 - 
(01807 - 
(05490 - 
(070 
Van der 



19881 ) 
51151) 
20589) 
71416) 
931417) 
Winden 



fldri Hankel 
John van Soranq 
Erwin Visschedi ik 
Jan Tomoot 
Mw. H. de Vries - 
flnton Mueller 
zie adres sekretaris 
F1.45, = oer kalenderjaar, oostreke- 
nina 3757649 t.n. v. KIM Gebruikers 
Club te flrnhem 
Oo aanvraaa bi] de redaktie 
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SE 6502 KENNER is een 
uitgave van de KIM Gebrui- 
kers Club Nederland. 

Rdres voor het inzenden 
van en reakties dd artike- 
len vm DE G502 KEWER: 

Uillea L. van Pelt, 
Jacob Jordaensstraat 15. 
2S23 CK KRIMPEN MM DEN 

ijssa. 

f*i. ! 01B07 - imi 

Redaktie DE 6502 KENNER: 
%sle MBiteNerkers: 

Hillet van Pelt 
Gerard van Roekel 
Frans Steehuiizen 

Jaao van Toledo 

FriBl«K» MHlMerkers: 

flirt i^itel 
Renee de Hood 
Fridus Jonkiun 
HerMH Muyvenhoven 
Rfiger Langeveld 
Anton Mueller 
Koen van KieuMenhove 
inAn l^seeuN 

Behele of aedeeltelijke 

overname van de inhoud 
van DE 6502 KENNER zonder 
toesteitinq van het be- 
stuur is verboden. Toeoas- 
sing van gepubliceerde 
srograMa's, hardware etc. 
is alleen toegestaan voor 
oersoonlijk qebruik, 

rnmi KENNER verschiint 
S )c m jaar en heeft een 
•Itli^ van 500 exeiplaren. 

Conyright (C) 1984 KIM 
Briiruikers Cleb Nederland. 

De vooroagina is een aoua- 
rel wn een Kli. gesetrtl- 
derd door: 

Rinus Vleesch Dubois 



INHOUDSQPGflVE DE 6S02 KENNE8 Ml. APRIL 19B4 

1. Van het bestuur 

2. Agenda 

3. Van de redaktie 

4. UITWrniBINB CiubbiieenkoMSt m$m:$t 

5. CoModore 64 
cassette-interface 

imaiiilifoniatie: Basic aet de CoModore 64 

6. BUG in BOUU eens een MILJONOR! 
... nerziene schema's 

7. BASIC 

...De Proton Basic is er. Piet Fransen 

.. .Uitbreidinoen od de SYM-! Basic. Frans S«eehui]zen 

Editor funkties 
...Berekening Autokosten. Will Cuiioers 

8. Brief van J. Kenfers PfiORJK 

9. Obsessie: reaktiesoel voor hex-disolay 
...Itarcel van Dora 

10. Processor net ... PUSH X = PHX ??? 
...Hernan Burgers. Texas. USA 

11. Tios t Tricks 
...Gsrard van Roekel 

12. De VDU-kaart 
...J. J. A. Janssen 

13. Prooraa Cassette 2 (zie ook editie 30) 
...M BrottMer 

14. FORTH. . . . , 
FORTH 

...Reinier Kleioool 

Tafels van vertteniavuldigino tot ux. 3200 
...Naartm Laaey 

15. HaHitinfft 

16. Vraao en ftnlMd 



3. 
3. 
4. 



.2' 



2.46« 

2. 
5. 

47. 

10. 

a 

; a, 
■m. 
■ a-' 

40. 
45. 
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KEIMIMER 



VflN t£T BESTUUR 

AlhoeMel de C(MKN)DRE-64 al eniae tijd geen onbekende in 
het land aeer is, is nu het nteni voof de verenioing aan- 
ebroken oi Mer aandacht aan dit lid uit het £552 aezin 
e gaan besteden. BeMoon oadat de club steeds wer leden 
gaat tellen die in het bezit zijn van dit verkooosucces 
van CoModore. Dat betreft dan zoHel nieuite leden, als 
■ensen die zijn oigeschakeld do de C64. soas als tMeede 
systee* naast KIM of JlMIOR. 

Zoals Me van CoModore gewnd zi in, is het een aachine die 
uitzonderlijke prestaties kopoelt aan een aantal even uit- 
zonderlijk^ klunzigheden. Naast het voortreffeliike 'ooe- 
rating syste*", de KERHWL, vinden me een BftSIC die al vry- 
wel klaar lag uit de PET/CBN-serie en dus geen enkele on- 
dtfsteuning biedt aan de fantastische grafische, aeluids- 
wn kleuremogelijkheden van de C64. Oeze aoaelitkheden ko- 
•en Bverigens pas tot hun recht indien in Mchifietaal oe- 

rograMeerd Mordt, doch de ■achinetaalHnitor ontbreekt. 

r zijn diverse wnitors leverbaar oo taoe of in ROM-oack. 
De beste versie blijft 'Suoemon', dat U eenvoudig nag o- 
wrmm (bel aij even). CoModore zelf levert Um in 
WH. Hvze aist de uitbreidingen van 'SuoerMon' aaar func- 
tioneert. Trao er niet in oa een RO«-o .f!k 'TOOLKIT-W te 
kopen voor de prijs van ca. F. 149,=. Een arof schandaal 
voor Mill tanlhit die stoaNeg niet werkt en een aonitor die 
roiiliiMH uit de Basic-interoreter aebruikt zodat U hea 
kunt veraeten als de interpreter mrdt uitaeschakeld on o- 
ver aK extra RAH te beschikkcn. Het ding heet ook wel 'VIC 
Ap* m li afkiMMyiii «Hm <»Nra«tflnNmtrue COHIOR %f Vlis- 
singena 

W qvm Coaaodore hier eetecn even een dikke onvoldoende 
voor de docuaentatie die beneden elk oijl is. Het aeeoele- 
verde boekie is een leuk ding voor beainners. Mie echte 
docuaentatie Nil hebben t*ordt ver*iezen naar de boekhandel 
«aar iets beters te kooD zou aoeten ziin: "COMMODORE 64 
PR06RAWERS REFERENCE BUIDE". Hier staat wel zo ongeveer 
illes in aaar een "reference auide" is het zeker niet. De 
gezochte inforaatie is zeer aoeilijk te vinden. Niet kort, 
zakelijk en od een rijtie, aaar veel gezNaa aet voorbeel- 
den. Een ooed leerboek, dat well 

Coaaodore levert ook een asseabler die aii niet kon ont- 
roeren. Er gaat toch aaar niets boven flSSM/TED van C.Moser 
Daaroa hebben flnton Mueller en ik de PET-versie van deze 
asseabler aangepast voor de C64. fiSSM/TED Nordt oeleverd 
door ingeneursbureau Schroeder in Eindhoven. U zou dus de 
PET versie daar aoeten kooen en onre aanoassingen er oo 
los lAoeten laten. De club heeft echter toesteaaing oa de 
kant en klare C&4 versie naaens de leverancier te aooen 
verkooen. Vanzelfsprekend tegen de noraale prijs (ca. Fl. 
152.==). U dient schriftelijk te bestellen oo een software 
verklaring, nelke verkriiabaar is oo het secretariaat. On- 
dertekenind daarvan betekent dat U de onrechtaatiaheid er- 
kent van elke vora van verder versoreiden. Doet U'dat ook 
a.u.b. niet! 6oede software wordt anders onbetaalbaar, oa- 
dat de auteurs net als U niet voor niets Millen werken. 

TemMte: Voor de C(mn0D0RE-64 gaan we een docuaentatie- 
aap aanlecgen. Beinteresseerden aoeten even een briefkaart 
naar het sekretariaat sturen. U ontvanot dan bericht terug 
hoe we een en ander gaan oraaniseren. Ook voor andere sys- 
teaen zullen we binnenkort iets dergelijks aaan starten 
Maaroyer later aeer in DE fiS02 ISNNlR. 

RUUD UPHDFF. 



BELAW6RIJK PROTON NIEUWS 
De Proton Basic is er. 

Reeds lang was deze Basic in het vooruitzicht oesteld,aaar 
is nu in aijn bezit. De Basic is een coaoiler-Basic die 
aet labels kan werken. Het toeoassen van labels aaakt deze 
Basic zeer aangenaaa tijdens gebruik. flls er bijv. een coa- 
aando RENUM uitgevoerd wordt, bliift een orooraaaa in orde. 
De Basic beschikt over een aantal unieke instructies, 
zoals: REPEAT ... UNTIL, IF ... THEN ... ELSE, TRACE MODE, 
OPEN en CLOSE coaaando's voor direkte printer en disk-be- 
sturing en nog een aantal andere instrukties oa o.a. hexa- 
deciaaal te werken. De Basic aaat verqezeld van een uitoe- 
breide docuaentatie, die U oo Uw floooy aeeoeleverd kriiat. 
Ook de FORTH-versie is vernieuwd en werkt nu bi i aij uit- 
stekend. De nieuwe FORTH bevat nu ook EDIT en" ASSEMBLER 
funkties. De Proton-bezitters die beide proaraaaa's in hun 
bezit willen krijgen, sturen aij een voor Proton aeinitia- 
liseerde floooy en een postzegel voor het retourzenden. 
Tot slot het voloende. De firaa Proton heeft bii de utili- 
ty-prograaaa's ook een orooraaaa FORM* oeleverd. Tiidens 
uittesten bleek dit orooraaaa bij aii niet te werken.' De 
oorzaak was. dat ik een OKI-80 orinter aebruik waarvoor 
dit orooraaaa niet ontworoen is. Ik heb inaiddels een nieu- 
we routine geaaakt die wel funktioneert. Deze routine, 
♦FORM*, herkent nu in een editor-file alls ooties van de 
OKI-80 orinter en voert deze korrekt uit. De files aogen 
in het geheugen staan, aaar worden indien oewenst ook van 
van f loony gehaald. Verder zim er een aantal coaaando's. 
die tiidens het listen van de'oaoina's geSruikt kunnen wor- 
den. Diegene die oeinteresseerd is in de code van deze 
foralister, aoet tevens even ooqeven waar de routine oe- 
olaatst aoet worden. Hij kan niet aeer, oezien ziin lengfe, 
00 $200 oeasseableerd worden. Eventueel kan als startadfes 
$3000 gekozen worden oadat de asseabler niet oeliiktijdig 
geladen hoeft te zijn. Zonodig telefonisch overleg.' 

Piet Fransen 
Voordewind 21 
1024 KS Aasterdaa 
TeKi <^313271 

iOIW e«» een HlLJOMBB-bmL 

In editie 30 oubliceerde J.H. Verniaaer het artikel aet de 
bovenoenoeade titel. Helaas zijn in de scheaa's toch noo en- 
kele routen achtergebleven. Zodra de w&mi*i zijn twrzim, 
zullen wij deze oonieuw publiceren. 

CASSEnE-INTERFflCE voor CQMMODORE-64. 
De Firaa "Vogelzano adverfeerf aFeriiae tiid over een in- 
terface waaraee het aoaeliik is een noraale" cassette recor- 
der te oebruiken oo de Coaaodore-64 en de VIC-20. Het ding 
kost volgens de advertent le F1.49,=. Alleen, als de firaa 
er een pewoonte van aaakt oa ongefrankeerd af te zenden, 
dan aoet U rekenen on ruia F1.7,= bijkoaende kosteni Han- 
diger liikt het oa aeteen de schakelino na te bouwen uit 
het seoteaber 1983 nuaaer van MC of die uit CHIP van luli 
1983i 

Overigens verneaen we oo de redaktie keer on keer dat het 
nog veel handiger is oa aet een Snellaad/Toolkitaoduul te 
werken oo de datasette-recorder. Dit aoduul zorgt voor het 
laden en saven aet een snelheid die hooer is dan aoqeliik 
is aet de C-1541 diskdrive. Oa 16K te laden heeft de'drive 
58 sec. nodig en het aoduul slechts 50 sec. ! Retoartmtlilo 
en postzegel en U krijgt hierover inforaatie. 
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DI 08-05-84 
UO 09-05-84 



CONPEC EUROPE B4 
Brussel, Belgie. 



ZA 19-05-84 CLUBBIJEENKONST TE RIJSHIJK iB» 
R.K. HTS 'Rijaiiik' 
Lxm KlBiMeg 4 te RijSNijk. 
focffflwr: Cees BootsM, 

Tel. : 070 - tal 
Ervarinqen tet OHIO-SOS m MltCSL 
Sprekende CoModore C4. 
* Presentatie nieutte DOS voor JIJNIIR^ 
Situlatie 65C02. 

DI 22-05-84 MICRO EXPO 
VR 25-05-84 Paris, France 

Info: Sybex, 4 Place Felix Eboue, 
TSSBIS Paris Cedex 12, France. 

m 91-06-84 REBIONflLE fi5XX BIJEENKONST 

CLUBHUIS DE BOSKANT, UILEB0NEN,1)EN HAA6 
InforMtie:6.van Roekcl, Tel.010-3S110i 

m «-«-84 CLUBBIJEENKONST TE ALNELO 
Kerailn van coeputers. 
Eram Vifschedijk en Adri Hankel 
Dubliceren daarover in augintus a.s. 

Zfl 17-11-84 CLUBBIJEENKONST TE ANERSFODRT 
Algeeene Ledenvergadering. 
Na de eiddag infortiel gedeclte. 
Toegang gratii. 

Mm UenZe Ma-avond v.d. aaand in HET DOWt 
RE6I0WK£ fiSXX MIEaKONBT 
zaal miit wng^MHi ii Ul ptrnMHli^ 
flat 



Hentoreneomst C«MNBiBre-64 : Ruud Uohoff 
Mm : Adri Hankel 

Eniin Viisehedijk 
Apple i ? 

Kia-1 : ? 

SYN-1 : ? 

Ai*-fiS : ? 
Vie fMft tidti tiff 

's Zondlfl VHMf 19.10 uur via HilvcnoeZ 
Hobbyscoop, vaak aet coamiterprograaaa*!, ii§ 
•.b.v. een cassetterecorder ziin op te mien. 
Door het gebruik van 'Baiicade'^ if elk uitge- 
zonden prograaaa aet Uh coeputer in te Iczen. 
Oe Basicodc voor de OSI en voor dc APPLE 11 
zijn gepubliceerd in HCC-Nieumbricf nr.34 
van twfJUm 1981. 

De B«Mi Hit ii HMEOR mri fiWttieiH# lit it 
Elcj^uttr van rittPlier lUS en taelt brrtrekking ep 
de Nleroiofl Ba»ie KB^ 



Onze club heeft sedert de onrichtino in 1977 veel nadruk 
gelegd op prograawrcn in aachinetaal. De ' lonoens van het 
eerste uur, N.O. onze ere-voorzitter en oorichter Sieo de 
Vries, zmeren erbii. Logisch 00k, mnt alles dat boven de 
aachinetaal is ontNikkela, de asseablers en de hoaere pro- 
graeaeertalen, Nordt eerst oagezet in aachinetaal oi de ai- 
croprocessor te laten werken. Het zijn 'slechts' huloaiddel- 
en die het de prograaeeur geaakkelijk taken een proaraaaa te 
ontNikkelen. De proaraaaeur es^ m fMpk overigens betalen 
aet verlies aan snelheid. 

De club heeft ervaren dat de Mereld van hobbyisten er een is 
mar 'aeerdere talen' mrdt gesproken of althans, xaar de 
behoefte bestaat niet alleen aet aachinetaal bezia te zijn. 
Na urzelende publikaties van Basic-prooraMa's koaen enioe 
aktiviteiten los oo het aebied van FORTfl. Net de koast van 
de clttb-CONAL en de aogelijkheid oa in FOCAL te prooraaaeren 
■ogen Me vermchten dat het palet van proaraaaeurs in onze 
club vele kleuren kent. In deze schakerina vinden Me 
ook de asseablers zoals de A^/TEO van Carl Moser en de 
door Sebo Holdringh tot n( uitoebreide Nicro-flDE van Peter 
JeaniiBi van Nicro-Uare Ltd. Van de laatste heeft de club de 
COpy-njhts, zodat we de gehele. becoaaentarieerde source- 
listing kunnen aanbieden. 

De oude vrees dat onze club een Basic-club zou Horden als tie 
de aandacht ook 00 hoaere prograaaeertalen zouden richten is 
niet beNaarheid. He bliiken zo nieuHsgierio, dat Ne niet al- 
le«i 9Moeaen neaen aet het aebruik van een oroaraaaeertaal, 
iur NB Nillen deze ook aanoassen, verbeteren, toesni iden oo 
eigen behoeften. En dat kan alleen, zal ik het eens aooi zeg- 

!en> aet sen in-depth-look, de prograaaeertaal als een aachi- 
ul te beschouNen. Oat hier een dileaaa ootreedt door het 
ontbreken van docuaentatie houdt niet tegen dat in de club 
veel tijd mrdt besteedt aan dit asoekt. Uaaraee aaar oezegd 
Mil zijn dat aachinetaal het aeest uitdaagt. 

In het verlengde hiervan Mil ik voor de nieuHkoaers onder 
ons 00 het hart drukken dat kennisuitHisselina (onze ori- 
•aire doelstelling) olaats vindt door het ouBliceren van 
artikelen in DE 6502 KENNER. Dat aeldt voor alle leden. Er- 
van overtuigd dat Nij ons hiertoe aanaetrokken voelen stel- 
de ik eerder al eens: de club, dat bent U ! ! Daaraee Nil 
ik tot ttitdrukking brengen dat het lidaaatschao neer aet 
zich brengt dan louter consuaeren van hetoeen anderen publi- 
ceren. Je aoet er zelf aan aeedoen! Daarbij is het van be- 
tekenis te eeten dat bestuursleden en redaktieleden niet 
priaair bezig aoeten zijn aet het schrijven van artikelen 
of aet het ontNikkelen van prooraaaa's. hoe aantrekkeliik 
dat ook is. Nijn persoonliike hartstocht heb ik onlanas nop 
eens geopenburd bij een bezoek aan ieaand aet een C&4. "De 
leden kennen nu de deeocratie achter hun clubblad: het is 
hini elidkttlii zij Meten erin schrijvHi*. 

De in deze editie voorkoaende auteurs hebben dat beorepen. 
Het is een greep uit de copy-buffer. Met een blik oo de aenu- 
kaart en gekoopeld aan aktuele ontNikkelinoen in de club, fll 
betekent net voor de inzender soas lano Nachten. het levert 
een laaenstelling 00 Nelke aezien, en aelezen aag worden. Zo 
kenden Me doorgaan act het verbeteren van de SYM-Basic. waar- 
Ne Nellicht inspirerend werken oa andere Basic's onder han- 
den te neaen. Er is weer wat voor hex-displav, de nieutte pro- 
cenor onder de loep. Tips en Tricks Haartoe ik iedereen uit- 
iMOig deze op te sturen, hc oaan eens kijken of de VDU-kaart 
£2«!5" "te-*?"*!"' en we hebben Mat veor onze 

FORTH en BASIC-liefhebbers. Inzenders, bedankt! 



W.L. van Pelt 
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UITNODIGING 



BIJTEENKOMST 



Datum 1 zaterdaa 19 mei 19B4 
Lokati« t R.K. HT§ "Rijswijk" 

Lange Kleiweg 4 te Rijswijk. Tel. 

Reisroute : 
- per auto 



070 - 907839 



" kome nde uit d e richting Utrecht 
Volg autoweg EF Utrecht -Den Haag. Knooopunt Leidschendam via de hogff 
rijoaan linksaf richtina Delft/Rotterdam, flan het eind daarvan rechts- 
af richting Den Haag. Rechts aanhouden. Onder verkeersbord Yoenburo 
door en rechtdoor met trambaan mee over Hoornbrua. Dan scherpe draai 
naar rechts en onder brua door, Delft/Rotterdam en Waterinaen aan- 
houden. Bij stoplichten linksaf en Sir Winston Churchillaan uitrijden 
tot laatste stoplichten voor SDooroveraana. Links van U aebouw BfiK en 
ABN bank, hier linksaf Huis te Landelaan oo, uitrijden tot eind en 
rTCtitnaf. Uitfijiittn tiffc inhoololain. 

- komende uit d e ric hting flmsterdam 

*7blg fii fi' dam-Rotterdaffl. Knoooount Leidschendam oasseren. E8/E10 aan- 
' houden tot eind, rechtsaf richting Den Haac. Rechts aanhouden. Onder 

verkeersbord Yoenburg door met trambaan mei over Hoornburg. Verder 

' ' ,. ~ komende uit d e richtino Rotte rda m 

Vcilg ET0~]r"3am-Den Haag fo¥~vTali< voor Hoornbrua. Onder verkeersbord 
Ypenburg dooi*' ttC JlR^aoor met trambaan mm »wm HmmbPum. Verder 
als boven. 

- per trein - Station Rijswi.ik uitgang richtino winkelcentrum De Boogaard. Bij uit- 
gang linksaf. Spoorovergang Winston Churchillaan over tot fttoillleht, 
rechtsaf Huis te Landelaan. Verder als boven. 



ti0i,=. Lunchpakket zelf meenemen. 

Consufflpties tegen beta! inc. 
Deze regeling is een experiment oo verzoek van 
de ledeny^rgadering. (Toegangsprijs v/h F1.25, -) 

Programma! . , 

B====S==== 

9.30 Zaal open 
10.15 Opening 

10.30 Erwin Visschedijk en fldri Hankel 

over hun ervaringen met OHIO-DOS; 

voor- en nadelen van het gebruik. 
11.45 Koffieoauze 

12.00 Forum . , 

flansluitend Lunchpaute. 
13.30 INFORMEEL GEDEELTE 

Aan de narktkraa* de»o met BBC aaberiaal en software w.o. direkt op 

diskette ki^ken (track voor track uitlezen). Progromaeren van 2764 

en 27128. Printer buffer lOK. 

Preeentatie nieuw DOS voor JUN IOR. 

Een der leden/leerling dmg^MM.Ui gevraafd zi]B ppqqp»R9«^PbWttliMrwi 
65C0j^" te dpaonstreren. ^-.u , 

ita^e^'' 'it. M' ma m»immi^> mamotB 64. 

BRENG OOK UW SYSTEEH NEE ALS OAT BNIGSZINS LUKT !! 
MARKT. Op eigen tafel(s> be regelen. 

17.00 Sluibing. 
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mmmm fSf de §m wmc mt Km cn junior 

EflITQR-F8t||4 11 



OflEUR: F.J.M. SfCEHUIJffiH 

LIPPEDflL 19 ^ 
2904 CL CflPELLE flAN M 
TEL: B10-512587 

HflNNEER MET BEHULP VftN DE SYM-1 BftSIC "MOEIZfiftM" PROGRflHHft- 
REGELS ZIJN INGETOETST EN ER BLIJKEN ftCHTERAF NOG EEN OftMTflL 
(TYPE)FOUTEN IN TE ZIHEN, DflN ZIT ER NIETS ANDERS OP DAN 
DE FOUTE REGELS OPNIEUW IN TE TOETSEN. 
OF HflNfKR IN EEN PROGRfimfl MEERDERE KEREN DEZELFDE OF BIJNfl 
DEZELFDE PROGRftfWREGELS VOORKOHEN ZOU ^£T PRETTIG ZIJN DftT 
Nfl EEN KEER INTOETSEN VERVOLGENS DE REGa GEKOPIERD KflN 
UORDEN. 

MET BEHULP VAN DE BftSIC-EDITOR IS HET MGGELIJK OM EVENTUEEL 
GEHflftKTE FOUTEN IN PROGRflrtlfl-REGELS EENVOUDIG EN SNEL TE 
HERSTELLEN EN DOOR UIJZIGING VAN HET REGELNUHHER VAN EEN BE- 
BESTflMUE RE6Q. IS REGEL TE,||PP@lr.y, 

HE Bf6IC-€DITQR HORBT PSRQPBI M IttHMil 

(KBIT (RIBELHUMMER) (ZIE BESCHRIJVING VflN HET TOEWOESBI m 
NIEUHE BflSIC-KOffflflNDO'S) 

Nfl BOVENSTflftNDE TE HEBBEN INGETOETST VERSCHIJNT OP HETBEBJ- 
SCHERH DE OPGESBei REBEL. UffffiBIJ DE CURSOR iCKilR OEZE Rm 

^'^IS ^'mOGELI^ oh net DE CURSOR DOOR DE WM. Vm %Wm 

ftLS VOLGT; 

- DOOR HET INTOETSEN VftN EEN <• OF CNTRL-H KflN DE CURSOR Nflfj 
LINKS GEPLMISr ilRDEN EN VERVOLENS SN ttlEW TEXEK Wm 

INGETOETST. 

- DOOR f€T INTOETSEN VflN EEN + OF EEN CNTRL-L KflN M. CURSOR 
NflflR RECHTS GEPLflflTST UORDEM EN \€RV0ljQQ6 EEK NIEIII TEI@I 
HORDEN INGETOETST. 

- DOOR HET INTOETSEN VflN EEN CNTRL-I MORDT ER EEN TUSSENRUIMTE 

eemcT in de mm. hmrdoor een teken krn norebi mmmiBm. 

- DOOR fCT INTCFTSEN VflN EN CNTRL-D HORDT OP DE PLftftTS VAN DE 
CURSOR HET TEKEN VERyiJDERD yflflRBIJ GELIJKTIJDIG DE REGEL 

IDRDT flflNGESCHOVEN. 

- DOOR HET INTOETSEN VflN EEN CNTRL-fl KflN DE CURSOR VflNftF EEN 
HILLEKEURIGE POSITIE IN DE REGEL HEER ACHTER HET LflflTSTE TEKEN 
GEPLflflTST yORDEN UflflRNA DOOR HET INTOETSEN VflN H iPURN DE REBEL 
DOOR BASIC ALS INPUT MORDT GEZIEN EN VERyEf8<T. 

OH EEN EN ANDER NOGELIJK TE HflKEN DIENEN DE VDLGENDE flflNPflSSINGEN 
BH TQBMIBINGBI FLMTS TE VHHENt 

- DE TOETS-HERKEfWING VflN BASIC HOET yORDEN UITGEBREID. 

- ER DIENT EEN VLflG TE yORDEN GEZET ON Nfl HET INVOEREN VflN HET 
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8658 
8668 
8678 
8688 
86Se 
8788 
8718 
8728 
8738 
8748 
8758 
8768 
8778 
8788 
8798 
8888 
8818 
8828 
8838 



8988 
8918 
8928 
8938 
8948 
8958 
8968 
8978 



1818 
1828 
1838 
18A8 
1858 
1868 
1878 
1888 
1898 
1188 
1118 
1128 
1138 
1148 
1158 
1168 
1178 
1188 
1198 
1208 
1218 
1228 
1238 
1248 
1258 
1268 
127B 
12» 



EDIT-KOfWflNDO DE CURSOR flCHTER DE GE-DISPLflYDE REGEL TE LflTEN 

- VOORNOEHDE VLflG DIENT HEER GERESET TE UORDEN NRDflT fET EDIT- 
KOHflflNDO IS UITGEVOERD. 

- EEN ESCAPE HOGELIJKHEID 0« EEN IhGEVOERD EDIT-KDHHflMDO ONGEDAfM TE 
HAKEN. 

- EEN RLARH-ROUTINE HELKE EEN BELL GEhEREERT INDIEN ER HEER TEKEN8 
GE-DELETE «ORDEN DAN ER ACHTER DE CURSOR STflW. 

- EEN ROUTINE yAARBIJ ZOUEL IN HET INPUTBUFFER flLS OQK OP (ET KE^ 
^SHEj^tJ^yiGO. IN ELKAAR SCHUIFT BIJ EEN DELETE CmRflCli 

(OP HET DOOR HIJ GEBRUIKTE SCHERM GEBEURT DIT DOOR JET STUICN VAN 
EEN E^ftPE~U) 

- EEN ROUTINE UAARBIJ ZOHEL IN HET INPUTBUFFER ALS OOK OP HET BEELD- 
SCHERM DE REGEL UITEEN GESCHOVEN HORDT BIJ EEN INSERT CmRflCTERT 
(OP HET DOOR HIJ GEBRUIKTE SCHERH GEBEURT DIT DOOR HET STuli VAN 
EN ESCM>E-Q) 

NB. DE BASIC-EDITOR, ZOALS AL EERDER IS BESCHREVEN. NDRDT GESTflRT 
DOOR HET INTQETSEN VAN HET KOHHANDO lEDIT <REiS.NR>> URAIINA 
VEimGENS UDRDT GESPRONGEN NMR ADRES $3376. 

SE NU \aGENDE ROUriNES ZIJN IN VOLGQRDE VAN ADRES OPGENGTEN. 

9801 BASKET ORG 19100 



UIT6REIDING Qf W Wm^^ Wgm^ 
ADiES $C3^ 

HIER DIENT DE JSR $1E5A (KIH GETKEHIB* 
TINE) TE UDRDEN GEUIJZIGD IN JSR (9000. 



9888 


DUTCH * 


$1EA8 


9888 


GETKEY ♦ 


$1E5A 


9888 


DELETE * 


$938F 


9888 


INSERT * 


$933A 


9888 


CtPYL * 


»935C 


9888 


BUFIN * 


$93D6 


9888 


UARH * 


$C27E 


9888 


BASRES * 


$946F 


9888 


ALARM * 


$93EE 


9888 


TEMP ♦ 


$17E2 


«H8 


CRLF * 


$1E2F 


9888 


LFCR * 


$C8FE 


mi 


BUFER * 


$eeiE 


%8a 


CPOINT ♦ 


$88E8 


9888 


EPOINT ♦ 


$e0ED 


9888 


PARAMS ♦ 


$8200 


9008 


EVLflG * 


$0E£ 


9000 


mm * 


$0KR 


9888 28 5A IE 


JSR 


GETKEY 


9883 C9 88 


CHPIH 


$88 


9085 D8 82 


BNE 


NEXT 


9807 AS 5F 


LDAIH 


$5F 


9089 C9 81 


ter CHPIH 


$81 


908B D8 83 


BNE 


NEXTl 


98BD 4C 5C 93 


JHP 


COPYL 


9818 CS 84 


NEXTl CHPIM 


$84 


9812 D8 83 


BNE 


NEXT2 


9014 4C OF 33 


JHP 


DELETE 


9017 C9 09 


mm aiPiN 


109 



SPRING NAAR KIH GETKEY^ 
IS (ET EEN BACKSPACE ? 

IS HET EEN CNTRLH) ? 

SPRING NAAR COPY LINEHOUTItE 
IS (ET EEN CNTRLH) I 

^RIW NAAR BE CHAR. DELETE ROHHi 
IS lET EEN CNTRL-I ? 
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E-B Ei a 5 



BR9e WRmmmmni 



9119 06 83 
9016 4C 3A 93 
9I1E C9 7F 

9821 00 83 

9822 28 GF 94 
9825 BB 

930F 



391: 
410: 
410: 



498! 



930F 
9311 
9314 
9316 
9319 
931B 
931D 
931F 
9321 
9323 
3^ 
9^ 
9329 
932ft 
932C 
932E 
9330 
31 



933fl 



818! 



IE 
IE 



933fl 
933C 
933F 
9341 
9344 
9346 
9348 
934A 
934C 
934F 
93S1 
3352 
9353 
9355 



IE 
IE 



MEXTS 



BflCK 



BNE NEXT3 
JKP INSERT 
CHPIH (7F 
BNE BHK 
JSR BABIES 
RTS 



SPRING NAAR DE CHAR. INSERT-ROUTINE 
ISMETiBiWMP? 

SPRING NRRR DE BASIC I^SETHem 



BASIC2 ORG «930F 



OEZE ROUTINE HWKT HET HQGaiJK OH IN DE BPSIC 
EDITOR EEN TEKEN VAN DE REGEL UflflRIN GE-EDIT 
HORDT TE VERUIJDEREN EN TEVENS DE REST VAN DE 
REOa EEN POSITIE NAftR LINKS TE SCHUIVEN. 



1 1 1 HI II I I miHK tun I II ilij i i 



LDflIM 
JSR 
LOAIH 
JSR 
STXZ 
INCZ 
LDYZ 
CPYZ 
BPL 
NCHAR LDMY 
STAZX 
INY 
INX 
CPYZ 
BNE 
LDXZ 
DEX 
OECZ 
JHP 

lELL JSR 



$1B 

OUTCH 

$57 

OUTCH 

CPQINT 

CPOINT 

CPOINT 

EPOINT 

BELL 

BUFFER 

BUFFER 



EPOINT 

NCHflR 

CPOINT 

EPOINT 

BUFIN 

ALARH 



ESCAPE-H NflAR DE TERMINAL 
STUREN OM EEN 'DELETE CHAR- 
RACTER' OP fCT SCHERN TE 
BEUERK5TELLIGEN. 
CURSOR-PQSITIE POINTER EVEN 
HEGZETTEN EN HET 1 VERH06EN 

OH OE CHARACTERS 
VraffiLIJKEN HET EINDE REGEL-POINTER 
NAAR BASIC ALARH-ROUTINE SPRINGEN 
NA DE CURSOR EEN POSITIE 
NMR LINKS TE SOUIiiK 



POINTER VERGELIJKEN MET POSITIE 
VAN LAATSTE CHARACTER IN DE REGEL 
X VULLEN HET DE OUDE CURSOR-POSITIE 
POINTER EN HET 1 VERLAGEN 
$00ED GQED ZETTEN VOOR OE CNTRL-A 



BASIC ALARH-ROUTINE 



BA6IC3 ORG $933A 



fm mnm vtm m nm.m m in de basic 

EDITOR EEN CHARACTER IN DE REGEL UAARIN GE-EDIT 
mffiT TUSSEN TE VQEGEN EN TEVENS DE REST VAN DE 
RB£L EEN POSITIE NAAR RECHTS TE SCHUIVBI. 



LDAIH $1B 
JSR OUTCH 
LDAIH $51 
JSR OUTCH 
STXZ CPOINT 
LBYZ EPOINT 
INCZ EPOINT 
LDXZ EPOINT 
mm LOAAY BUFFER 
STAZX BUFFER 



CPOINT 
NCHARl 



CPYZ 
BPL 



t-REG 



EEN ESCAPE-Q NAAR DE 
TERMINAL STUREN OH EEN 
'CHARACTER INSERT' TE. 
BEUERKSTELLIGEN 
CURSOR-POSITIE POINTER _ 
POINTER LAATSTE CHARACTER 
POINTER EEN OPHOGEN 
X-REG LADEN HET VERHOOGDE POINTER 
EN VANAF DE CURSOR-POSITIE 
TOT EN re LAATSTE CHARACTER 
EEN POSITIE NAAR 
RECHTS SCHUMN 

VE8GELIJK NET CURSOIhrailTIE POSfTER 
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KEINJMER 



2080 


■ 935C A4 Eft 


LDYZ 


$Efl 


; KOhfTROLEREN OF BASIC IN 


2898 


: 935E C0 BB 


CPYIH $BB 


! EDITOIHCBE 18 SEZET - * ■ 


21N 


■ 9368 F8 83 


BEQ 


EDIT 


2118 


9362 4C 7E C2 


JHP 


mm 




2128 


9355 E4 ED 


EDIT CPXZ 


EPOINT 


; KONTROLEREN OF CURSOR flL 


2138 


9357 F8 Bfl 


BEQ 


BIF 


; ftCHTER LftftTSTE CHflRflCTER STBftT 


2148 


9369 B5 IE 


EDITl LDflZX BUFFER 


; VflNflF CURSOR-POSITIE TOT 


2158 


936B 28 «8 IE 


JSR 


DUTCH 


; EN RET LflflTSTE CHflRflCTER KDFIEIEN 


21E8 


■ 936E E8 


INX 




; EN DISPLflY-EN ^ 


2178 


935F E4 ED 


CPXZ 


EPOINT 


; LflATSTE CHflRflCTER emi^? 


2188 


9371 D8 F6 


BNE 


EDITl 


2198 
2288 


9373 4CI)&93 








2210 


9576 


BPBICS ORB 







9357 fl6 E8 LDXZ CPOINT ; CURSOR-POSITIE POINTER NAflR Pm 

9359 4C D5 93 JHP BUFIN ; TERUG NflflR INPUT-RDUTIIC 

935C 6flSIC4 ORG $935C 



DOOR m INTCETSEN VAN EEN CONTROL-fl IN DE BASIC 
EDITOR IS NET HOGELIJK OH VflNflF DE CURSOR-POSITIE 
TOT flflN HET EINDE VflN DE GEDISPLflY-DE REBEL TE 
KOPIEREN EN DERHflLVE DE CURSOR ACHiPvNP igiSi 
CHflRflCTER TE PLflflTSEN. ^ * ^ ■ 

»» i MM»**m*WiM^u )[*i|i «* * «** *»|i Wi | n | r1r»»» i^^ 



t i >. i H«> « »M iit» l« i liM i <Hi i |i ! 

DEZE ROUTINE HflflKT DE OMGEVING VflN BflSIC 
VOOR HET GEBRUIK VflN DE BflSIC-EDITOR. 



2388 


9375 ft9 99 


LIST 


LDflIM 


i99 


; BflSIC LIST-TOKEN IN 


2318 


9378 85 IE 




STflZ 


BUFFER 


; INPUT-BUFER PLflflTSEN 


2328 


937fl fl2 80 




LDXIH 


$00 


; PflRflfCTER OPHflLEN 


2338 


937C BD 80 02 


PflRflH 


LDMX 


PflRflHS 


; VflN flDRES $0200 EN IN 


2348 


937F 95 IF 




STftZX 


$1F 


5 INPUT-BUFER PLflflTSEN 


2358 


9381 E8 




INX 






2368 


9382 C9 80 




CMPIM 


$80 




2378 


9384 D0 F6 




BNE 


PflRflM 




2388 


9386 ft9 F 




LDfllH 


$F 


; ZET DE PRINT-POSITIE 


23SB 


9388 85 ED 




STflZ 


EPOINT 


; POINTER OP -1 


2480 


938fl fl3 D4 




LDfllH 


$D4 


; MIJZIG HET TERUGSPRING flDRES 


2418 


938C 85 84 




STflZ 


$84 


; OP $0004 EN $0005 VflN $C9S4 


2420 


938E fl9 93 




LDflIM 


$93 


; IN $93D4 (INPUT-ROUTINE) 


2438 


9398 85 05 




STflZ 


$85 


2440 


9392 fl9 BB 




LDflIM 


$BB 


; ZET DE EDIT-HODE VLflG flflN 


2458 


9394 85 Eft 




STflZ 


$Efl 




2468 


9396 68 




PLfl 




; DE STflCK-POINTER HERSTELLEN 


2478 


9397 68 




PLfl 




2488 


9398 68 




PLfl 






2490! 


9399 68 




PLfl 






2500: 


939fl 68 




PLfl 




if^i '• ■ ".' ■ ^' ..' ' J' 


2518' 


939B 68 




PLfl 






2528' 


933C 68 




PLfl 






2538! 
2548: 


93^4C32C3 




JHP 






2550: 


33flg 


MIIC7 (MS 


mm 
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mm 
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2630 














2640 


93A6 


8C E2 17 




STY 


TEHP 


ZET Y-REG EVEN UEG 


2650 


93fl9 


M EA 




LDYZ 


$Efl 


KONTROLEER OF DE 


26B0 


93flB 


C0 BB 




CPYIM 


$B6 


EDIT-HODE VLflG GE- 


2670 


93flD 


F0 04 




BEQ 


EDIT2 


ZET IS 


2680 


93flF 


flC E2 17 




LDY 


TEMP 


EN HflflL Y-REG UEER OP 


2690 


93B2 


60 




RTS 




EN TERUG NflflR BftSIC 


2700 


93B3 


M ID 


EDIT2 


LDYZ 


$1D 


TIJDELIJK *001D MEGZETTEN 


2710 


93B5 


84 B 




STYZ 


$EB 


IW MET OPBOUWEN VAN DE REGEL 


2720 


93B7 


04 19 




LDYZ 


$19 


HflflL DE CURSOR-POSITIE POINTER OP EN 


2730 


93B9 


C9 m 




CMPIM 


$0A 


VERGELIJK DE flCCU-INHQUD ftT EEN LF 


2740 


93BB 


F0 0C 




BEQ 


NEXTCH 


ZO Jfl, VOLGENDE CHflRflCTER OPHflLEN 


2750 


93BD 


C9 0D 




CHPIH 


»0D 


VERGELIJK DE flCCU-INHOUD fET EEN CR 


2760 


93BF 


F0 08 




BEQ 


NEXTCH 


ZO Jfl, VOLGENDE CHflRflCTER OPHflL£N 


2770 


93C1 


99 IC 00 




STftflY 


$001C 


PLflflTS CHflRflCTER IN INPUT-BUFER 


2780 


93C4 


20 A0 IE 




JSR 


DUTCH 


EN ZET HET OP HET BEaDSCHERM 


2790 


93C7 


E6 ED 




INCZ 


EPOINT 


VERHOOG DE CURSOR-POSITIE POINTER 


2800 


93C9 


A4 E6 


NEXTCH LDYZ 


lEB 


HflflL HET TIJDELIJK BEHflflRDE BYTE 


2810 


93CB 


84 ID 




STYZ 


(ID 


HEER OP EN ZET HET OP $001E-t 


2820 


93CD 


flC E2 17 




LDY 


TEMP 


HflflL INHQUD Y-REG UEER OP 


2830 


93M 


68 




RTS 




1 EN GR HEER ISHS WAR BftSIC 


2840 
2850 
2860 


9304 




mm 


ORG 







HIER yORDT GEKEKEN OF DE EDIT-HODE VLflG GEZET 
IS TER VOORBEREIDING VflN DE TE UIJZIGEN REGEL. 



93D4 ft6 ED 


LDXZ 


93D6 20 61 C3 


JSR 


93D9 08 


PHP 


93Dfl 48 


PHft 


93DB 8fl 


TXfl 


93DC 48 


PHft 


93DD 98 


TYfl 


93DE 48 


PHfl 


93DF 20 2F IE 


JSR 


93E2 20 5F 94 


JSR 


93E5 58 


PLfl 


93E6 fl8 


TflY 


93E7 68 


PLfl 


93E8 flfl 


TflX 


93E9 68 


PLfl 




PLP 
JMP 









HET BEHULP VflN DEZE ROUTINE WORDT IN DE BflSIC- 
EDIT-HODE EEN KOPPELING GELEGD TUSSEN DE BftSIC 
GETKEY-ROUTINE EN DE EDIT FUNKTIES. VERVOLGENS 
UORDT ER Nfl GE-EDIT TE HEBBEN EEN CRLF VERZORGD 
EK DE EBIT-MQDE VLflG RFGE^, 



EPOINT ; VUL X-REG MET CURSOR-POSITIE POINTER 

$C361 ; EN SPRING NflflR BftSIC GETKEY-ROUTINE 

; SAVEN VflN DE flCCU mM - 

; REGISTERS I.V.M. 

; HET VERWERKEN 

; VflN DE CRLF 



*1E2F ; KIM CRLF ROUTINE 

BflSRES ; RESET BftSIC PO INTER-ROUT IhE 

; DE flCCU EN DE 

; REGISTERS 

; UEER VAN mm 

; HALEN 



«m ; BRsic iHRrr-RBimME 



19^ 



ii »it i »i ii ifi i »iillnf» i "rM i t 



ROUTINE OH 6IJ EEN FOUTIEVE DELETE EEH flLNM 
NflflR DE TERMINAL TE STUREN. 
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BASICS 



ES82 RSSEHBLER V3.i 



3210 
3220 
3230 
3240 
3250 
32E0 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
33G0 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 



93EE ftS 07 
93F0 20 A0 IE 
33F3 4CI16 33 

94&F 



LflflD ACCU MET EEN BELL- 
CHflRflCTER EN "PRINT" HET 
TERUG Vm BASIC INPUT-RflUriNE 



LDfilH $07 
JSR DUTCH 
JMP BUFIN 

RESET 086 im 



ROUTINE Ofl Nfl DE EDIT-HODE DE EDIT-MODE- : 
VLflG ftF TE ZETTEN EN HET BftSIC TERUGSPRIli- 
fl&RES OP $0iB4 EN $0015 TE HERSTEUIN. 



946F fl9 54 
9471 85 04 
9473 fl9 C9 
9475 85 05 
9477 ftS CC 
9479 85 EE 
947B 85 EA 
947&GI 



LORIH $54 
STflZ $04 
LDfllH $C9 
STfiZ $05 
LDftIM $CC 
STflZ EVLflG 



HERSTEL OP DE ADRESSEN 
$0004 EN $0005 HET 

TERUGSPRING-flDRES 
$C954 TBV BftSIC 
ZET DE EDIT-MODE 
VLflG EN DE 

AUTD-NUffiERVLAG AF EN GA 
TERUB NAAR BASIC 



MICRO-flDE FOR THE 6502 



Micro-flDE is a Text Editor. 
Rsseitbler. Disassaibler, or- 
iainally a 4K version for 
tfie KIM, Nritten by Peter 
Jtnnings. Our club became 
CDoy rights of that version. 
One of our Beibers. 5. Uol- 
dringh ude it a 8K version 
for fhe KIN. AfterHards fldri 
Hankel ude it a BK JUNIOR 
vtrsion. There is only a la- 
nual for the 4K KIK version. 
But no need for re-writing 
a unual esoecially for the 
the 8K JUNIOR version. Micro 
ADE has now conands like: 
Aooend, Blockiove, Clear Buf 
fer, Delete Lines, Disolay 
address/nuMber last line. 
Fix Line, Bet Source Files, 
Append Source Files. Print 
Syibol/XREF Tables, Reset/ 
Set For* Feed Flag. Reset/ 
Set Page Node. Insert Lines. 
Chose Cine(s), List, Move 
Line(s), Number (renumber). 
Load ASCII-fornat files. Set 
Lines/Screen and Lines/Page, 
List Hetory in use. Duplica- 
te Files, Save Source Files, 
Print/Change string, Reset/ 
Set Page-per-File/tject Flag 
Search Line, List Hithout 
Line Nunbers, Save Chosen 
Lines, Asseable/Execute. Save 
(^Il-fonut Files,Disassei- 



JUNIOR/KIH Hvoertaoe casset- 
te Hith Manual and coMand 
suAsary: Fl. 47,50. Source- 
listinii SK version Hith coi- 
•ents: Fl. 65.00. Both in 
English language. To be oay- 
ed on oostal account 841433 
of U.L. van Pelt at Kriioen 
a.d. IJssel, The NethBrlands. 
Eurocheaue alloHed. 
Foreign countries Fl. 6,75 
extra transfers. 

BASIC MET DE COMMODORE 64 

Dit boekie van ca. 200 blad- 
zijden is een vertaling van 
Learn coiouter orograuing 
Hith the Costodore 64 door 
L.A.P. van den Uvnoaert. Het 
stelt U in staat bruikbare 
Drooraiaa's te schriiven in 
Basic. Er is aeen voorkennis 
nodia. Tevens zim een aan- 
tal oraktische twiElaniMm 
vernerkt, w. o. : 

- kleureffecten. 
arafieken aet 
tie 

- geluidseffecten en 
training 

Uitg: Haaften KluHer. 

door/PntHeroen 
ISBN: 90 6215 092 6 



ani«atie en 
hope resolu- 



■orse- 



Asel- 



\nXI-s8ftNare Paoentare 4. 

%i J. Keafers PA&RJK 

Herinckhave 30 
7608 BH fllselo 
Tel.: 05490 - 64110 

ontvingm mc d« volgende 
briefs 

Q» Mt de VDU kaart van E- 
lektuur te kunnen nerken, 
■oet ten de softnare van 
Paoernare 4 in TM en PM 
zetten. Dan itoet alles wer- 
ken voImrs Elektuur. Dit 
kloi^ Mil, OKlat in PM 10 
t^m mn wrMilpt affirten 
•nrrdms 



Has 
1000 D8 
1004 8D 82 lA 
12DC K 61 
1334 BE 60 



lA 
lA 



Hordt 
58 

4C DA 16 
4C F8 16 
4C 8A 16 



HEEFT U EEN COMIODOiE 64? 
GSF i€T DP «H DE SSOEriffilS! 



Verder heb ik de VDU-kaart 
verzet van DOOO naar BOOO. 
En de reg. van D600 naar 
BBOO, dit i.v.t. SYN-Basic. 
De verandering op de kiirt 
bestaat uit: 

de 2 draden die oo A14 zit- 
ten op A14 zetten; 
de 2 draden die oo Ai3 zit' 
ten OD A13 zetten. 
0E21 8E 00 D8 D8 Hordt BS 
0E24 8D 01 D8 Het is dus 
0E26 8E 00 D8 ook nogelyk 
0E2E BD 01 D8 de VDU oo 
0E37 8E 00 D8 noa andere 
0E3A SD 01 D8 olaats te 
0E41 8E 00 De zetten door 
0E44 8D 01 D8 deze 14 by- 
OFDC 8E 00 D8 tes te wr- 
0FE2 8D 01 Da anderen. 
Uiteraard dienen dan ook 
de adressen op de kaart te 
Horden aangepast. 
0E57 29 D7 D7 Hordt B7 
0119 29 D7 

nm 

mm mwmmm 
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OBSESS 



080264 PA6E 01 



*#♦*»**■»♦###«# 
#♦♦#»*«#♦»#»» 



««««•««««*«■«# 
««««*•«*«««« 



******** 



Benodigd : Standaard JUNIOR met IK geheug«ii 

EEN REfiKTIESPELLETJE 

Door ! Marcel van Doro 

De Ridderstraat 20 
2313 JR Leiden 

Soelregels! Na het orogramma gestart te heoben (startadres 
$0200) zal in het'disolav 00 00 00 verschimen, 
Het beginnen geschiedt door oo de + toets te drukKen. Oo dl 
(Yiiddelste twee disolays sal een ' wi 1 lekeuric' aetal vers©H4,|- 
nen (0 .. F). Dit getal sal daar maar een beoaaide tijd 
blijven staan. Wordt in die tiid od de toets lYiet hetzwifde 
ODSchrift gedrukt, dan sal, evenals de beurtentel ler, ook 
de scoreteller oogehooaa worden. Bi i de voloende beurt zal 
de tijd waarin p(!Pfftoifrd,.i9pet worden, kprt«r .^Ijp. p« iinteBi» 
twee disolay* ^mm*t¥M^-mimml muvtm mt$^i^.'^:''t^m<l0''^*^' 
de score. . : v; 

Na 25 beurten stoot het orooramma, de uitlezlng' Si i tfl" 5t«an 
totdat er oo de plustoets gedrukt wordt. 

SCftNDS: De inhoud van de zero-(WMI« adressen F9. Ffl, FB war- 
den oo het disolav sicl#l*ilr aeinaakt. Oo het di»* 

olay verschijnt dan van links naar rechts de inhoud van res©. 

$00FB, $00Ffi, $00F9. (KIM SCANDS = *1F1F) 

GETKEY: Deze routine tast het toetsenbord eemviaal aft A|s 

er een toets is ingedrukt, dan staat de toet«««jM|rde 

na aflooD in de accu. Is er oeen toets inaedrukt, daifi lifFitftt 

er 15 (hex) in de accu. (KIM'GETKEY = $lE^fl) 

Toetftwaarden : 0 .. p. voor de toetsen 0 F 
10- voor de 'flD' -toets 

11 voor de ' Dfl' -toets 

12 voor de ' +' -toets 

13 voor de 'SO' -toets 

14 vo«fs#» 'PC -toets 



TELLER T. B.V. DE WftCHTLUS 
LIMIET VAN DE WflCHTLUS-TELLER 
TOETSWflARDE LfiflTST INSEDRUKTE TOETS 
VOOR EINDI6EM WACHTLUS 

SCORETELLER 
' SPEEtVELD' 

»»TELLE8 



0440 


0200 








OBSESS 


ORB 


$0200 




0450 


















0460 






00 


00 


WAIT 


* 


$0000 


• 


0470 






01 


00 


LIMCNT 


♦ 


$0001 




0480 






02 


00 


KEYVAL 


* 


$0002 


■ 


0490 
















• 


0500 


















0510 






F9 


00 


CNTSCO 


* 


$00F9 




0520 






FA 


00 


FIELD 


« 




■ 


0530 






Ft 


00 




« 




0540 


















0550 






84 


lA 






mfm 


* 


0560. 


















0570. 






SE 


ID 


SCANDS 


* 


$1D8E 


m 


0580 






Fg 


ID 


BETKEY 


* 


$1DF9 


m 

1 


0590 


















0600 : 


0200 


fl2 


FF 






LOXIM 


*FF 


• 


0610 


0202 


ae 


01 






STX 


LIMCNT 


■ 


0620 


0204 


EB 








INX 




• 


0630 


0205 


B& 


F9 






STX 


CNTSCO 


■ 


0640: 


0207 


86 


FA 






STX 


FIELD 


■ 



WACHTLUS OP DE BROQTSTS TIJD 



SCORETELLER OP NUL 
DISPLAY WISSEN 
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OBSESS 



080284 PflBE 02 



0650 ! 


0209 


6d 


rtS 




CT V 

b 1 X 


lUKNS , 


BtURTtNTELLER UP NUL 


0650: 


020B 


20 


8E 


ID 


imTTI TOO 

WRITl JSR 


SCONDS ; 


ZIE INLEIDIN6 


0670: 020E 


20 


F y 


ID 


JSR 


f-> r~ IX r~ \/ 

BETKEY 




0680: 


0211 


C9 


12 




CMPIM 


$12 


+ TOETS INBEDRUKT ? 


0690- 


0213 


DU 


rb 






WHlTl 


ZDNEh, TERUG 


0700 : 


0215 


RD 


64 


IR 


SThRT LDO 


TIMER 


IN flCCU N WORRDE VON TII"Rh fRfl 


0710! 0218 


29 


Or 




AKir\ T M 


ife ACT ■ 


HLLEEN RECHTEn NIBBLE 


0720! 0210 


85 


FH 




b 1 H 


FIELD : 


ZICHTBflAR MAKEN 


0730: 


021C 


20 


40 


02 


JSR 


INKEY 




0740: 


021 F 


05 


02 




LDO 


KEYvOL 


HOOL TOETS OP 


0750 


0221 


C5 


FO 




CMP 


FIELD 


6ELIJK HON GEvR. TOETS? 


0760- 


0223 


DO 


03 




BNE 


BEURT 


ZOnEE, SCORE OvERSLhhN 


0770 


0225 


20 


5D 


02 


JSR 


SCORE 


0780 


0228 


F8 






BEURT SED 






0790 


0229 


18 






CLC 






0800! 


0220 


05 


FB 




LDO 


TURNS 


HOOL OONTOL BEURTEN OP 


0810: 


022C 


59 


01 




ODCIM 


$01 


. & l^VERHOGEN 


0820. 


022E 


85 


FB 




BTO 


TURNS i 


fEftOeftTTEN 


0830 


0230 


D8 






CLD 






0840 


0231 


C9 


25 




CMPIM 


$25 


25 BEURTEN GEHOD? 


0850: 


0233 


DO 


EO 




BNE 


STORT 


ZONEE, TERUG NflOR START 


0660: 


0235 


20 


8E 


ID 


WflIT2 JSR 


SCONDS 


0870 


0238 


20 


F9 


ID 


JSR 


BETKEY 




0880 


023B 


C9 


12 




CMPIM 


$12 


+ TOETS INSEDRUKT ? 


0890 


023D 


DO 


F6 




BNE 


WflIT2 




0900 


023F 00 






BRK 




STOP 


0910 
















0920 










; subroutine 


INKEY wacht een beoaalde txid en haalt 


0930 










; event ueel een inaedrukte toets oo: konrit in KEYVflL 


0940 
















0950 


0240 


09 


00 




INKEY LDOIM 


$00 


TELLER WORDT GERESET 


0960 


0242 


85 


00 




STO 


WOIT 




0970 


0244 


09 


1 J 




LDOIM 


$15 


; WAARDE VAN 'SEEN TOETS' 


0980 


0246 


85 


U Z 




STO 


KEYVOL 


IN TOETSBUFFER ZETTEN 


0990 


. 0248 


20 


a c" 

SE 


ID 


WftIT3 JSR 


SCONDS 




lOOO 


. 024B 


20 


F9 


ID 


JSR 


BETKEY 




1010 


024E 


C9 


15 




CMPIM 


$15 


BEEN TOETS INGEDRUKT? 


1020 


. 0250 


FO 






BEQ 


TELLER 


•ZOJO. DAT DON NIET WEGZETT®! 


1030 


0252 


85 


02 




STO 


KEYVOL 


; WE6ZETTEN IN TQETSBUFFER 


1 040 


0254 


E6 


00 




•'TiLUR INC 


WOIT 


; TELLER VEMiiN 


1050 


! 0256 


05 


00 




LDO 


WOIT 




1060 


! 0258 


C5 


01 




CMP 


LIMCNT 


; TELLER GELIJK AAN LIMIET? 


1070 


! 0250 


DO 


EC 




BNE 


WAITS 


; TERUG 


1 080 


: 02^ 


60 






RTS 




; TERUG NAAR HOOFOPROGRAM 


1 090 
1100 










; sub routine SCORE vsrholitt i» tfeereteller mn vmr- 


1110 










;kleint de w^chtlUK 




U20 














: ■ 1 


1130 


: 025D 


F8 






SCORE SED 






1140 


! 025E 


18 






CLC 






1150 


! 025F 


05 


F9 




LDO 


CNTSCO 


• DPHOLEN SC0RETELLE8 


1160 


: 0261 


69 


01 




ODCIM 


$01 


; 1 ERBIJ OPTELLEd- ' 


1170 


! 0263 


85 


F9 




STO 


CNTSCO 


; TERUBZETTEN 


1180 


: 0265 


D8 






CLD 






1190 


! 0266 


05 


01. 




LDO 


LIMCNT 


; OPHOLEN LIMIET 


120O 


: 0268 


E9 


03 




SBCIM 


$03 


; LIMIET VERLASEN 


1210 


s 0260 


65 


01 




Sift 


LIMCNT 


; TERUGZETTEN 


12208 026iC 


m 






RTS 
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KEMIMER 



Herman Burgers 

3100 Canter Lane 
AUSTIN, Texas 78759 



502 weggegooid. Want nu zit in dat 



voetje een 

Hij is volledig compatible met de 6502, en hij 



Zojuist heb ik mijn 
betere processor. 

draagt ails code 6SC02 op zijn 40 pins DIP pack. Dese is van 
F^ockwell, en hee-f t al'le nieuwe cades. De chips met dezel-fde 65C02 
code van BTE en NCR missen de RMBx/SMBx en de BBRx/BESx 
inst rue ties. 

Er 2i4n een drietal redenen om een 6SII3<^ t» gebruiken. 

.1 Een serie nieuwe en zee«^ aantrekkel i j ke instructies 

»rbij, totaal heb ik er nu 210 geteld. 

»2 "Bugs" van de 6502 zijn verdwenen. 

•3 Lager energie gebruik, wat mmr vermogen voor extra 

Eproms beschikbaar bij mij. 



instructies 


zijn o. a 


• 
■ 


MNEMONICS 


BYTES 


UITLEB 


PHX en PLX 


1 


push register X en pull X v stack. 


PHY en PLY 


1 


push register Y en pull Y v stack. 


BRA 


2 


branch always. 


INC 


1 


increment register A. 


DEC 


1 


decrement register A. 


ST2 


2/3 


store zero (clear), zero pg/abs, 






zonder 0 in een register. 


iBRx en BBSx 


3 


branch on bit x reset (R) mn 






branch on bit >; set <S) , zero pg. 


RfWa en SMBx 


2 


reset <R) bit en set (S) bit zpg. 


TSB en TRB 


2/3 


tmmt/rmtmM -mr •n test /set (S) bit^ 






in zero page en abs. 



De RMBx , 
tegel i j k , 
zijn een 



SMBx , BBRx en 
voor ieder bit is 
Boort BIT test 



BBSx instrukties komen met 8 stuks 
er een aparte opcode. De BBRx en BBSx 
voor ieder bit en een BRA, in een 



instrukti e. De opcodes worden gevolgd door een zero page adres, en 
de BByx ook nog door een offset byte voor de branch. 

Ze zijn in tl» LSI 7 en F kelommen t# vinden, die witr#n 
he 1 emaa 1 1 eeg • 
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Verder is er een zeer bruikbare aanvulling in de verschiUsnde 
adr«s»ing mode* gekomen, als eerste de niet-geind#Keerde Indirect* 

(zero page) mode. 

De ORA t/m SBC instrukties zijn nu dus ook als ORA Up) t/m 
SBC<2p) be«chikb««r. Zle de LSB 1 kolom. De JHP is er nu weer als 
enige met een absolute indirect X indexed, JMF' (abs),>! ! Dat is 
wel de instruktie geworden om een jumptable met max. 128 adresaen 
te b ewer ken. 

En BIT hee'ft er een stel weggelat«ri - iidr««»|ng modes bij, nu 
bestaat ook de BIT #nn bv. 

Wat de wnt >.s«i«erkte "bugs" betre#ti" |« mr- mk ««# mmt te 

vertel 1 en. i / 

De b#k#ndste is het indirecte adres dp een page boundary (lage 
adres byte op een page en hoge adres byte op de volgende plttftt. Dat 
Qing fout, en bij de 65C02 gaat dat goed. Het kost' Mel een e«tr« 
machine cycle. 

De niet bestaande opcodes doen nu geen rare dingen, alles doet nu 
een NOP als het onbekend is. (De *FF om een EPROM nog een keer 
pi aatselijk te kunnen veranderen is niet meer bruikbaar die 
opcode is ingenomen door een BBS on bit 7.) 

Ook verbeterd is de decimal mode. De D flag wordt bij reset op 0 
(binary) gezet, in de stand D=l, decimal mode 

werken d# IsV en N flag* alg bij binary mode. Dit vereist wel een 
extra machine cycle in decimal mode. 

De me««t bryitetsar© xrernteuwingen zij naar mijn idee de BRA,de 
non-indexed i ndirect triBtukties, de TSB/TRB, de 8TZ en de indexed 
indirecte JMP. 



80 42 BRA MYLABEL . 

©F 02 42 BBS3 ZP2,H¥fc*i^lL 



04 AA 



LDA #MASK 

TSB ZPAA 

BNE ONE_BIT SET 

«EQ NO_BITS~SET 



5 Zet bits vol gens mask, set Z 
; flag vol gens A or M->M 



7C OS EE 



JSR eET_A CMD 
ASL 

TAX 

JMP (CMDTABL>,X 



; Command in .A 
;Multply by 2 

'fUmm it mm inmm 

tCtump using adress table 
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Het geheel heb ik in tabelvorm gegoten. Een opcode kun 
samenstellen door de Most Significant <MSD) en de 
L®awt Significant Digit (LSD) te combinsiren, bv. PHX « 



Least Significant Digit — > 





0 


1 


2 3 


4 


5 


& 


7 


8 


9 


A 


B C D E 

w w u t 


c 

r 


0 


1 m 


m 




T^ 




ASL 


MO 


PHP 


HI ' 


turn- 


Ten fm l/St 

1 w0 linn nwL 


lift i 




j 


(nn, X) 




nn 


nn 


nn 


0,nn 






A 


nnnn nnnn nnnn 

IMIIMl llllllll lltlllll 


0 nn ! 
V f nil 1 

BBR 1 


i 


1 BPL 


ORA 


DRA 


TRB 


ORA 


ASL 


RHB 


CLC 


ORA 


INC 


TRB QRA ASL 




I 


flfBl,f 




nn 


nn,X 


nn,X 


l,nn 




nnnn. Y 

fi Pill 1 1 1 1 


A 


nnnn nnnn \ nnnn \ 

llllllll llllllllf h Mllliiij n 


\ nn I 

i ) Mil 1 


2 


i JSR 


AND 




BIT 


AND 


ROL 


RNB 




AND 


ROL 


BIT AND ROL 


BBR : 




! nnnn 


lnn,l() 




nn 


nn 


nn 


2,nn 




tnn 


A 


nnnn nnnn nnnn 
llllllll llllllll llllllll 


7 nn ! 
Don 1 


3 


1 BHI 


AND 


m 


BIT 


AND 


M. 


RHB 


SEC 


AND 


DEC 


BIT AND Rfll 




1 
1 


(nn),Y 


(dr) 




nn.I 


nn, X 


3,nn 




nnnn.Y 


A 


nnnn \ nnnn \ nnnn Y 


^ nn ! 

BBR ! 
Bvn 1 


4 


i RTI 


EOR 






EOR 


LSR 


RHB 


PHA 


EOR 


LSR 


JHP EDR LSD 

yjw .'^s'r van 






ifm,tl 






nn 


nn 


4,nn 




Inn 


A 


unM " WMM nnnn 


4|nn 1 

ODD 1 


5 


1 m 


EOR 


EOR 








RNR 


PI ! 




PUV 

rni 


cdD 1 CD 




1 


(nn),Y 


(nn) 




nn,X 


nn,X 


S,nn 




nnnn,Y 




DMa|lnnnn,X 


5,nn i 


1 1 RTS 


ADC 




m 


m 


1^ 


RNt 


fit 


m 


ROR 


m m ROR 


BBR ! 




1 


(nn,X) 




nn 


nn 


nn 


&,nn 




nnnn 


A 


(nnnn) nnnn nnnn 


6,nn 1 


7 


i BVS 


ADC 


ADC 


STZ 


ADC 


ROR 


RHB 


SEI 


ADC 


PLY 


JHP ADC ROR 


BBR 1 




1 
1 


(IW»,Y 


(nfi) 


«ff,l 


m,l 


nn,K 


7,nn 




nnnn,y 




(nnnn),X nnnn,X nnnn,X 


7,nn ! 


8 


1 BRA 


STA 




STY 


STA 


STX 


SNB 


DEY 


BIT 


TXA 


STY STA STX 


BBS 1 




i 


(nn,)() 




nn 


nn 


nn 


0,nn 




Inn 




nnnn nnnn nnnn 


0,nn 1 


9 


1 BCC 


STA 


STA 


STY 


STA 


STif 


9NI 


TYA 


STA 


TXS 


STZ STA STZ 


BBS 1 




1 
1 


(nn),Y 


(nn) 


nn,)( 


nn,X 


nn,Y 


l,nn 




nnnn,Y 




nnnn nnnn,X nnnn,X 


l,nn 1 


A 


1 LDY 


LDA 


LDX 


LDY 


LDA 


LOK 


SHB 


TAY 


LDA 


TAX 


LDY LDA LDX 


BBS 1 








tnn 


nn 


nn 


nn 


2,nn 




Inn 




nnnn nnnn nnnn 


2,nn 1 


1 


1 m 


LDA 


LDA 


LDY 


LDA 


LDX 


SHB 


CLV 


LDA 


TSX 


LDY ISA LDX 


BBS 1 




t 


(nn),Y 


(nn) 


nn,X 


nn,X 


nn,Y 


3|nn 




onnniY 




nnnn,X nnnn,X nnnn,Y 


3,nn 1 


f 


\ m 


m 




m 


CW» 




lir 


INY" 


m 


BEX 


CPY CMP DEC 


BBS 1 




1 inn 


<nn,l() 




nn 


nn 


nn 


4,nn 




Inn 




nnnn nnnn nnnn 


4,nn 1 


D 


! BNE 


CNP 


CNP 




CHP 


DEC 


SHB 


CLD 


CHP 


PHX 


CMP DEC 


BBS : 




1 


(nn),Y 


(nn) 




nn,X 


nn,X 


5,nn 




nnnn,Y 




nnnn,X nnnn,X 


5,nn 1 


E 


! CPX 


SBC 




CPX 


SBC 


INC 


SHB 


INI 


SBC 


HOP 


CPX SBC INC 


BBS 1 




I inn 


(nn,X) 




nn 


nn 


nn 


&,nn 




Inn 




nnnn nnnn nnnn 


&,nn 1 


F 


t BED 


IBS 


m 




SBC 


INC 


SHB 




SBC 


PLX 


SBC INC 


BBS 1 




1 


(nn),Y 


(nn) 






nn,X 


7,nn 








Mmn,X nnnn,X 


7,nn 1 
























* 



nn« mo ptft, M> im*9^ i|f, nnnn* ^iolfitt, m«m laHfiH^jAfSiuti 



Die 6Se02r, hi. 5 doet het 
en AF'PLE 11+ model 1 en , 
is deze chip (typen tot 



bi.j mij zonder mankeren. 
die een clock vo©r phase 
4 MHz leverbaar) roogelijk 



Bi.j Dudere APPLE II 
2 van phase 0 maken 
niet geschikt. 
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T X 



C K & 



TiPs en tricKs zi in di« Kl*in» h«ndi«* trukJes di* i»d*r» hobbyist tocpast 
OP zun computer. MeiK* echtrr neoit invMtuurd wordcn door hurt sctiiJnb«r* 
eenvoud. Toch ben iK er van ov^ftuitd dut HMhniM Handi«h*id voor Mii Jmdcf 
d* id«ale opiossins kan ziJn. 

SV 

EEN L. S. INTERFACE MET VOLUME-REGELINQ 




BCS17 



□m in basic d* dvciiiitt* t«i#t<KcNW t* vmitmmm kitn n»n h*t voi«*nd* simp*!* 
pre«r«Mma into*ts»n. 

10 INPUT miPRINT ASC(A«> 



Na "RUN" han men een willekeurise to«ts indruKken en een "RETURN". 
Op het beeldscherm verschijnt dan d* decimal* waarde van deze toets. 



□M MflCHII^ETAHL MIOGRflntlA' S AAN BASIC TOE TE VOEQEN M.B.V. OECXfKltjE mm 



10 DATA 234,008.072. 13B. 072. 1S2. 072. IBB 

20 DATA 2S4.00S. 001.208. 0^3. 2SA.00G. 001 

30 DATA ENZ. 

1000 FDR 1-8192 TO 8207 

1010 READ AiPOKE I>A 

1B20 NEXT I 

%P0 SNR 



xi-DEciMALAL mt Bmttmms 

TOT HET EINOflDI^S} 



OH MACHINETAAL PROORAMnA' S AAN BASIC TOE TE VOEGEN M. B. V. HEXADECIMALE DATA 



IB flD=S192 ' '•■ 

20 REOD QP% 

30 GOSUB 900 

40 POKE AD. QP 

5B AD-AD+l 

£0 IF X0 135 THEN GOTO 20 

70 END 

100 DATA A9. 7F. 8D. 83. lA. AD. 82. lA 

s^m mm 00*^0%* 8d> bb. ia. as. ib. bo 
' $m Mm wta. 

^ eyf>>LEPT«<0P«. 1} 
910 QR*-RIBHT*(CIN(. t> 

920 GL=VRLCQL») 

93ei IF QL°0 AND QL* <) ■0'' THEN QL-ASCCa.*) -99 

940 QR=VAL';QR*) 

950 IF QR<=0 AND QR* <) '01" THEN QR<^eCQR«)>SS 
960 QP-QL^'IB-^QR 
Wm RETURN 



MET DEZE SIMPELE SCHAKELING BEREIKT MEN EEN IMITATIE VAN HET STEREO GELUID. 
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De VDU-kaart v/d ELEKTUUR heeft de 6845 als video-controller, om de 
VDU-kaart goed te laten werken moeten de reaisters v/d 6845 qevuld 
Morden. De &B4S hteft de volgendc registers: 



r«gist«r 



R/W 



aantal bits 



data data data 



address reaister W 

RO horizontal total W 

Rl horizontal disolaved W 

R2 hor svnc position W 

R3 hor sync width W 

R6 vertical total W 

R5 vert total adiust W 

R6 vertical disolayed W 

R7 vert svnc oosition U 

R8 interlace mode W 
RS max scan line address W 

RIO cusor start W 

Rll cursor end U 

R12 start address (h) W 

R13 start address (1> § 

R14 cursor (h) 0^ 

R15 cursor (1) R+W 

R16 liaht oen (h) R 

R17 lioht pen (1) R 



5 
8 
B 
8 
4 
7 
S 
7 

I 

5 
7 
S 
6 
8 
6 
8 
6 
8 



*7ft 
$50 
$58 
$08 
$1C 
$1F 
$19 
$1B 
$00 
$0fi 
$E0 
$07 
$00 
$00 
$00 
$00 



$70 
$40 
$58 
$05 
$1C 
$1F 
$10 
$16 
$00 
$Ofl 
$E0 
$07 
$00 
$00 
$00 
$00 



$7a 

$50 
$5E 
$08 
$1C 
$1F 
$16 
$19 
$00 
$00 
$E0 
$07 
$00 
$00 
$00 
$00 



lom) 



In de tabel duidt R/W aan of het register gelezen (R»«REfiD) dan ml 

geschreven (W=WRITE) kan worden. 

Het aantal bits duidt aan hoe groot het desbet ref f ende reaister is 
bv. 5 geeft aan dat bit 0 t/m bit 4 v/h reaister aebruikt worden. 
De data is de inhoud v/h desbet ref fende reaister om een beeidformaat 
van 80 bij 25 te verkrijgen, voor de monitor van mil! (eerste data ko 
pe tweede data kolom is voor een beeidformaat van &k*i6 en de laatste 
kolom voor een beeidformaat van 90*22. 
Waar de data niet van toeoassing is staat . 

Besorekinq v/d registers, 
address register: 

In dit register moet men zetten welk registernummer men wilt lezen 
dan wel schri iven. Men moet dus dit reaister vuUen met data van 
$U0 t/m $11 (RO t/m R17). 
Dit register bevindt zich oo ad res $D800. 

£«oX°^^^"'^^ registers (RO t/m R17) zijn allemaal toeaankeliiK via adres 
•DBOl, Melk register wordt geno«en hangt af van de data oo itifmB ffflBOO. 

Register RO: 

In dit register komt de freauentie v/d horizontale svnchronisatie en 
geeft dus aan de totale breedte v/h scherm. 

Voor een mooi stilstaand beeld kan deze inhoud van monitor tot monitor 
versehillend zijn. 

Register Rl: 

Beeft het totaal aantal karakters oo een reael zichtbaar oo het scherm 
wordt gezet. Voor 80 kar. oo een regel is dit dus *50. 

Register R2: 

Seeft de horizontale svnc oositie aan en beoaalt dus waar het beeld eindiat. 

■ " 

Register R3: 

Beeft de breedte v/d horizontale svnc duIs aan, hiemmm is het beeld dus 
honzontaal gezien een kar. te verschuiven. 



17 
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Registers R4 en R5: 

Deze registers bepalen samen de verticale synchronisatie frMAMijtlBf 
R4 in aantal regels, als f i jnafrefBling noq evt. een a«nii|^|||Men> 

■•,( ^. 

Reqister R&t . «, " T 

Gee^t het aantal regels die oo het scherm moeten komen aan. 

■ 

Register R75 

Beeft aan waar de verticale syne moet komen in aantal reqels. 

Real St er R8: 

Moet $00 staan zodat we niet interlinief ren. 
Reqister R9: 

Beeft aan uit hoeveel liinen (minus een) een reoel wordt oogebouwd. 
ffiinimaal dus 6 (7-1) en alles meer dan 6 geeft een soatie tussen de reqels. 

Reaisters RIO en Rll: 

Geven aan hoe de cursor van vor* is. 

RIO bij welke liin met de cursor begonnen wordt en Rll bii w^lke lijn 
de cursor eindiqf . 

Bit 5 en 6 van ftlO hebben een soeciale functie nl! 
bit 5 bit 6 functie ' , 

0 0 stilstaande cursor 

0 1 aeen cursor 

1 0 cursor snel knioperend ^ - 
1 1 cursor lanazaam kniooerend ' '' • 



Register R12 en R13! 

Deze twee reaisters aeven aan bii welk 
VDU-kaart) de controller most beqinnen 
Staat er bv. $00 in R12 en R13 dan zal 
links boven oo het scherm komen (eerste 



adres (v/h interne RfiM-qebied v/d 
oiri kar. oo het scherm te zetten. 
het kar. v/d eerstii gelwuaenolaats 
aeheuaen olaats 'itt Mmf, iu« #0000 



OiYidat ROM aeheuaen van $D800 t/m D7FF looot).' 

Door R12, Rl3 steeds met het max. aantal kar. oq een t« 

zal het bee Id dus gaan scrollen. 

Reqister R14 en R15: ,,,, .,, 

Deze twee registers aeven aan waar de cursor moet IftMlPI Ic 
hij natuurlijk zichtbaar is (afh. van ^| 5 Sip)f 



Voor de r«ft werken zij hetzelfde 



Register R16 en R17! 

Deze twee reaisters geven aan waar de lichtoen oo het scherm wordt 
gehouden, omdat de lichtoen nog niet voorhande is wordt hier vertitr ; 
niet 00 ingegaan. 

Het beste kan men volgend programmat ie intyoen waarmee men dan de 
reaisters kan vullen volgvfis am tat»l en vervolgens. indien het beeld 
niet geheel goed is, enioe registers iets veranderen. 
Het oroaraiMlat ie werkt met het heKadeclmale toetsenbord. 



0200 
0203 
0205 
0208 
020B 
020D 
0210 



20 6F 
10 FB 
80 00 D8 
20 6F ID 
10 FB 
BD 01 D8 
4C 00 02 



ID :vraaa een byte 



;zet 00 address register «n «ilaet«er ROj>Rt? 
:vraag weer een bvte 

;zet byte in het geselecteerde register 
:herhaal dit alles 



Als dit orogrammatje is oogestart moet men eerst het registernummer 
gev^n (0 t/m $11) en daarna de data die oo dat reaister moet komen. 
fliermee kan men eenvoudig bekiiken hoe het een en ander Merkt. 



be software voor de VDU-kaart: 

Al hoewel ELEKTUUR ook met soortgelijke software zal komen heb ik toch mmmr 
zelf de software voor de VDU-kaaft geschreven. 

Het oroaramma heb ik in de TM-eDroA~aezet en looot van $0CB0 t/m $0FFF. 
Dm het goed te laten werken moet in de Ptt'-eerom ook twee dinoen vmrmtvimrii 
worden, nl s _ ■ 

op moet staan mf^ imSt (Mj ttij[ dt» 41: m 
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0 


0 


0 


0 


0 


1 


0 


1 


0 


0 


1 


1 


1 


* 


* 



op $1334 moet staan JMP PRINT (bij mi i dus 4C 8D OE) 

Dan heeft aeheugenolaats $1058 (STftTUS) een soeciale functie nl: 
bit 7 bit 1 bit 0 »tatu« 

M'SSU M»t echo mn riomaal scrollen 
VOU met echo en lanazaam scrollen 

zonder echo en normaal scrollen 
VDU zonder echo en lanazaam scrollen 
RS 232 bv. voor elekterminal of printer 
(♦adon't care) 

■ 

Met deze drie bits kan men dus beslissen waar een karakter naar toe 
gaat, wel of geen echo v/e ingedrukte toets en hoe er oescrolled moet 
worden« over dit laatstc nog een ooAterking' 

* 

0e bi^oeling was om een zan. smooth scroll te maken dMZ. dat er steeds 
met' een lijn gescrolled wordt iov. met een hele reael, hierdoor kan er 
heel mooi gescrolled worden. 
Dit smooth'scrol len had ik zo gemaakt: 

Door de vert, sync steeds te veranderen komt het beeld steeds met een 
lijn naar boven, dit (steeds met eniqe vertraaina) hernalen totdat het 
scnerm een gehele regel hoger staat. Dan de vert, svnc terug zetten en 
normaal scrollen (bi i dit laatste evt. het beeld even weohaien zodat 
dit niet te zien is).' 

flls ik dit echter bij mini monitor doe dan vervormt het beeld dusaanio 
dat ik heb besloten smooth scroll te vtrnf^^Btx door langzaatt scrollen.' 

■ 

De software omvat eiaenlijk twee subroutines, nl, PfitWtf INPUT. 
Subroutine PRINT: 

Deze subr. drukt een karakter af oo het scherm indien bit 7 van STflTUS is 0 
is bit 7 1 dan wordt subr. PRCHft (*1334 in PM) vervolgd. 

Subroutine INPUT: 

Deze subr. is eigenlijk het vervolg van subr. RECCHfl ($12flE in PM) . 

Er wordt aekeken of er een echo oiaats moet vinden en of er een soeciale 

toels is in fiNiruHt, tfeze zi in: 

a 

toets functie 

control a initial iseert de VDU-kaart. zet alle registers ooed en zet 

het beeld formaat weer od 80*25 
control b verwisselt de flag van normaal/langzaaufi scrollen 

tevens kri igt men een cursor die niet meer Hmoe^rt 
control d verwisselt de flaa van wel/oeen echo 
delete geen echo naar schernt indien delete is iiiii^ftlii 

Indien control a, b of d is ingedruKt wordt er nog een keer naar RECCHfi 
aesorongen voor een nieuwe toets, hierdoor kan men tiidens het intvoen 
van tekit deze drie toetsen gebruiken zonder dat uw DFOffi«iMH»a f outmeldingen 
aeeft. 

Eventueel kunnen voor control a, b en d andepe toetfcen genomen wtiPdt*}* IH 
verwijs u hiervoor naar de listing. 

« 

Verder zitten er noa twee kleine subroutines in en wel: 
F0R&4 zet het beeld formaat oo 64*16 (bi.j mil $OFfla) 
FORgO zet het beeld formaat oo 90*22 (bij mil *0FD6) 

Door een van deze subr. aan te roeoen en beeld schoonmaken (dmv. 1^ naap 
het scherm te sturen) heeft u het gewenste formaat verkrecen. 
DiYiv. control a kan men weer terug naar 80*25. 

Met het eerste programma kan men ook nog andere formaten maken. 

Met deze software blijft alle bestaande programma' s werken, er wordl 
uiteindelijk niets van oag. 0 veranderd. 

Het ODStarten v/d computer aaat nu als volat: 

Zora dat op STflTUS $00 staat. start PM oo (1000 go), druk delete in, 
druft control a in (scherm init ial iseren) en evt. control 1 (scherm 
schoonmaken). Het indrukken van control 1 heeft natuurlijk wel de meldina 
MHflT? tot gmmlM'i. omdat PM deze t^itf niiet herkent. 

in het bepin heb ik in een tabel de data gegeven voor de formaten 80*25. 
64*16 en 90*22 wilt u een ander formaat vast in eorom hebben dan kan dit 
u ffloet dan de tabel TftB, en HMfliX zelf aanoassen. Ik verwiis u hiervoor 

weer naar de listina. 
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0C80- 

oca2- 

0C85- 
0C88- 
0C8B- 

ocec- 



0C8E- 
0C90- 



0C93- 
0C95- 

ocgs- 

0C3ft- 
0C9D- 
OCflO- 
0Cfl3- 
OCflS- 
OCflS- 
OCflB- 
OCflD- 
OCBO- 
OCBl- 
0CB4- 
0CB7- 
OCBfl 
OCBD 
OCCO 



02 OF 
8E 00 D8 
BD Bl 
8D 01 
Cfl 

10 F4 



oc 

DS 



fig 50 

8D 52 Ifi 



fig 19 
80 53 Ifi 



fig 00 

8D 54 
8D 55 
8D 56 
fig DO 
8D 57 
flD 58 10 
29 FE 
8D 58 
60 

7fl 50 
08 IC IF 

ig IB 00 

Ofl EO 07 
00 00 00 
- 00 



Ifl 
Ifl 
Ifi 

Ifi 



Ifl 



8 



OCCl- 
0CC3- 
0CC5- 



fig DO 

85 01 
flO 00 



0005 

00 10 
0015 
0020 
0025 
0030 
0035 
0040 
0045 
0050 
0055 
0060 
0065 
0070 
0075 
0080 
0085 
0090 
0095 
0 1 00 
0 1 05 
0110 
0115 
0120 
0125 
0130 
0135 
0 1 40 
0145 
0150 
0155 
0 1 60 
0165 
0170 
0175 
0180 
0185 
0190 
0195 
0200 
0205 
0210 
0215 
0220 
0225 
0230 
0235 
0240 
0245 
0250 
0255 
0260 
0265 
0270 
0275 
0280 
0285 
0290 
0295 
0300 
0305 
0310 
0315 
0320 
0325 
0330 
0335 
0340 
0345 
0350 
0355 



AREG .DE $D800 adres-reaister van de 6845 

DREG .DE $D801 data-rea ister van de 6845 

HMfiX . DE $lfl52 lYiaK. aantal kar. horizontaal 

VMflX . DE $lfi53 max. aantal reaels on het scherm 

HCUR ,DE $lfl54 cursor Dositie horizontaal (0-HMflX) 

VCUR .DE $1055 cursor oositie verticaal (0-VMOX) 

TQPLS .DE $1056 samen met TOPHS vormt dit het adres 

TOPHS .DE $1057 dat links boven od het scherm staat 

STATUS .I£-*i^58 flag die het volgende mngemft 

I STATUS « *^ l^fSi en normaal scroilen 

; STOTUB = $01 echo en langzaam scroilen 

: STATUS = $02 oeen echo en normaal scroilen 

; STATUS = $03 geen echo en lanazaam scroilen 

; STATUS » *FF itar. wordt »|irijwri VBrzonden 

TOPL . DE $0 aebruikte adressen in oaa 0 ■ ' 

TOPH . DE $1 deze worden ailemaal aesaved 

TEMPL .DE $2 er gaat oo paQ 0 dus iiiks verloren 

TEMPH .DE $3 

:dit programma heb ik achter TM gezet 

.Bfi $C80 

.MC $200 
.OS 

•de SLibr. INIT init ial iseert de VDU-kaart 



I NIT LDX #$0F 

LODPl STX OREG 

LDO TAB, X 
STO DRE0 
DEX 



Max aantal kar. horizontaal 

LDfi #$50 
STO HMOX 

Max aantal kar. verticaal 

LDA #$19 
STft VMflX 

LDA #$00 
STft HCUR 
STO VCUR 
STA TOPLS 
LDA #$D0 
STA TOPHS 
LDA STATUS 
AND #$FE 
STO STATUS 
RTS 

TAB .BY $70 $50 $58 

.BY $08 $1C $1F 
. BY $19 $1B $00 
.BY $00 *E0 $07 
. BY $00 *®® t<!® 
.BY $00 : 



:vui rea ister 0 t/m 15 met 
;data uit tabel TAB 



:zet cumap- lifikm kMimm 



;TOP wiist naar $D0O0 dit ii 
:het beain v/h ROM-aebied 
;norfflaaI scroilen 



;data 
; voor 
: de 
; reaisters 
I ■ v/d 

6845 



;deze subr. maakt het scherm schoon 



CLS 



LDO #$D0 
STA »TOPH 
LDY #$00 



:zBt TOP 0 0 $D000 
:en vul $D000-*D8OO 
:met soaties 
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0CC7- 


84 


00 




0CC9- 


fig 


20 




OCCB- 


91 


00 




OCCD- 


C8 














OCDO- 


E6 


01 




0CD2- 




01 




0CD4- 


eg 


Da 




0CD6- 


DO 


Fl 




0CD8- 


fig 


DO 




OCDft- 


85 


01 




OCDC- 


fig 


00 




OCDE- 


8D 


54 


Ifl 


OCEl- 


8D 


55 


Ifl 


0CE4- 


85 


00 




0CE6- 


flO 


OC 




0CE8- 


8C 


00 


D8 


OCtB- 


OU 


01 




OCEE- 


C8 






OCEF- 


CO 


10 




OCFl- 


DO 


F5 




0CF3- 


60 






0CF4- 


flD 


54 


Ifl 


0CF7- 


FO 


44 




0CF9- 


flO 


OE 




OCFB- 


8C 


00 


DB 


OCFE- 


flD 


01 


D8 


ODOl- 


29 


D7 




0D03- 


og 


DO 




OD05- 


85 


03 




0D07- 


ca 






ODOa- 


8C 


00 


D8 


ODOB- 


flD 


01 


Da 


ODOE- 


85 


02 




ODIO- 


flD 


52 


Ifl 


0D13- 


38 






0D14- 


ED 


54 


Ifl 


0D17- 


flfl 






ODia- 


20 


4B 


OD 


ODIB- 


flO 


OF 




ODID- 


ac 


00 


DB 


0D20- 


38 






0D21- 


flD 


01 


D8 


0D24- 


ED 


54 


Ifl 


0D27- 


8D 


01 


D8 


0D2fi- 


aa 






0D2B- 


ac 


00 


D8 


0D2E- 


flD 


01 


D8 


0D31- 


Eg 


00 




0D33- 


29 


OF 






on 


A 1 


no 


0D38- 


flg 


00 




0D3fl- 


BD 


54 


Ifl 


0O3D- 


SO 






0D3E- 


E6 


02 




0D40- 


DO 


08 




0D42- 


E6 


03 




0D44- 


fl5 


03 




0D46- 


29 


D7 




0D4e- 


85 


03 




OMA- 


60 







:TOP 



20 FF LDfl #$D0 

STfl *TOPH 
LDfl #$00 
STfl HCUR 
STfl VCUR 
STfl »TOPL 
LDY #$0C 
LOOP* STY flREB 

STfl DREG 
I NY 

CPY #*10 
BNE L00P4 

RTS 



;deze subroutine orint sen CR 

in 



0360 
0365 
0370 
0375 
0380 
0385 
0390 
0395 
0400 
0405 
0410 
0415 
0420 
0425 
0430 
0435 
0440 
0445 
0450 
0455 
0460 
0465 
0470 
0475 
0480 
0485 
0490 
0495 
0500 
0505 
05 1 0 
0515 
0520 
0525 
0530 
0535 
0540 
0545 
0550 
0555 
0560 
0565 
0570 
0575 
0580 
0585 
0590 
05g5 
0600 
0605 
0610 
0615 
0620 
0625 
0630 
0635 
0640 
0645 
0650 
0655 
0660 
0665 
0670 
0675 
0680 
0685 
06g0 
06g5 
0700 
0705 
0710 
0715 
0720 
0725 



LD0P2 
LQDP3 



STY *TOPL 
LDfl #$20 
STfl (TOPL), 
I NY 

BNE LOOPS 
INC #TOPH 
LDfl *TOPH 

CMP #$Da 

BNE L00P2 



ideze subroutine aeeft een FORM FEED 



*D0O0 



;HCUR := 00 
;VCUR != 00 



;zet reoisters v/d BS45 gdc^ 



ENDCR 



LDfl HCUR 
BEQ ENDCR 
LDY #$E 
STY flREG 

LDfl DREG 
AND #$D7 
ORfl #tgp 

I NY 

STY flREG 
LDfl DREG 
STfl *TEMPL 
LDfl HMflX 
SEC 

SBC HCUR 
TAX 

JSR XSPflTIES 
LDY #$F 
STY flREG 
SEC 

LDfl DREG 
SBC HCUR 
STfl DREG 
DEY 

STY flREG 
LDfl DREG 
SBC #0 
flND #$0F 
STfl DREG 
LDfl #$00 
STft HCUR 
RTS 



;voor aan reael? 
:doe dan niks 
;zet cursorQOsitie 
I in TEMP 

;moet tussen $D0O0 
;en *D800 UgatW 



;HWflX-HCUR=aantal, kar* 
tot mir^m Tta*! 
«iwif rest ech o o n 



ztmii van reaister 14.15 
;tCUiR mf, zoiat de cursor 
•vooraan de refcl ko«t 



MAtrd* van 
?ligg»w ttis»«n 



jHCUR ;= 00 



U4 ffioet 



;deze subroutine verhooat TEMP met 1 en 
;zorgt dat het resultaat tussen «D000 
;en iDSOO bli ift (video fmi 



INCTEMP 



ENDIIK 



INC #TEMPL 
BNE ENDING 
INC #TEMPH 
LDfl *TEMPH 
AND #$D7 
STfl »TEMPH 



;dez« subroutine zet Nit ad res dat 
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0730 


;in TEMP staat 


X soatles 












0735 








0D4B- 


flO 


00 




0740 


XSPflTIES 


LDY 


#$00 




0D4D- 


Cfi 






0745 




DEX 






0D6E- 


30 


00 




0750 




BMI 


L00P6 


;klaar? 


0D50- 


fi9 


20 




0755 




LDO 


#$20 


0D52- 


CI 


02 




0760 




STO 


(TEMPL), Y 




0D54- 


20 


3E 


OD 


0765 




JSR 


INCTEMP 




0D57- 


4C 


4D 


OD 


0770 




JMP 


XSPOTIES+2 










0775 


L0DP6 


RTS 














0780 


















0785 


;dez« subroutine print een LINE FEEo 










0790 








'|@ursor 1 reqel^.lMl'^ tJitfef 


0D5B- 


EE 


55 


10 


0795 


LF 


INC 


VCUR 


0D5E- 


fiD 


55 


10 


0800 




LDO 


VCUR 


0D61- 


CD 


53 


10 


0805 




CMP 


VMOX 


ftlKftS fm^ de laatste pK>i|lf 


0D64- 


FO 


19 




08 1 0 




BEQ 


SCROLL - 


^j|tt fa dan scroll en 


0D66- 


fiO 


OF 




0815 




LDY 


#$0F 


0D68- 


8C 


00 


D8 


0820 




STY 


AREG 




OD&B- 


fiD 


oi 


D8 


0825 




LDfl 


OREi 




0D6E- 


18 






0830 




CLC 






0D6F- 


6D 


52 


10 


0835 




ODC 


HMOX 


:tel bij R14. R15 HMflX oo 


0D72- 


8D 


01 


D8 


0840 




STO 


DREB 


;dus de cursor koivit een 


0D75- 


88 






0845 




DEY 




tmsml naar ben«#ei<i 


0D76- 


8C 


00 


D8 


0850 




STY 


ORES 


0D79- 


fiD 


01 


D8 


0855 




LDO 


DREG 


: rond daar alles af 


0D7C- 


4C 


EC 


OD 


0860 




JMP 


AND 










0865 


















0870 


;SCROLL telt bij R12.R13 


HMOX 00, alles oo scherm 










0875 


;aaat een 


reae' 


naar bov»n en maakt orHlemte nl«w<M 










0880 


:regBl schoon 














0885 










0D7F- 


fiD 


58 


10 


0890 




LDO 


BTOTUS 












0895 




LSR 


0 












09('>0 




BCC 


NSCROLL 






20 


9D 


OF 


0905 


SSCROLL 


JSR 


VERTROOG 


ja vertraaq dan 




CE 


55 


10 


09 1 0 


NSCROLL 


DEC 


VCUR 


■zet VCUR weer oo laatse regel 


0D8B- 


flO 


OD 




0915 




LDY 


#$D 


ODSD- 


8C 


00 


D8 


0920 




STY 


ORES 






IS 






0925 




CLC 






onqi - 

\JL/ J X 




00 




0930 




LDO 


*TOPL 


;TOP := R12, R13 + HMflX 






52 


10 


0935 




ODC 


HMOX 




85 


00 




0940 




STO 


*TOPL 


ifSMP s= TOP 


0D98- 


85 


02 




0945 




STO 


#TEMPL 






01 


D8 


0950 




STO 


DREG 




0D9D- 








0955 




DEY 








sr 


00 


D8 


0960 




STY 


OREG 




ODfll- 


fi5 


01 




0965 




LDO 


#TOPH 




0DR3- 


69 


00 




0970 




ODC 


#$00 








DO 




0975 




ORO 


#$D0 


:re5ultaat moet tussen 




29 


D7 




0980 




OND 


#$D7 


:$D000 en *D800 blijven 


0Dfl9- 


85 


01 




0985 




STO 


»TOPH 




85 


03 




0990 




STO 


*TEMPH 


;resiiltaat lYioet tussen $00® 


ODflD- 


29 


07 




0995 




AND 


#$07 


ODflF- 


8D 


01 


08 


1000 




STO 


DREG 


ten $800 blijven (2K RAM) 








1005 


■ 
















1010 


;zet teiriD 


00 eerste kar. 


laatste reael 


0DB2- 


flE 


53 


10 


1015 
1020 




LDX 


VMOX 


;in TEMP staat TOP 


0DB5- 


CO 






1025 


DEX 


DEX 






0DB6- 


FO 


OE 




1030 




BEQ 


HMV 




ODBS- 


18 






1035 




CLC 






/snog- 


05 


02 




1040 




LDft 


*TEMPL 


;TEMP := HMflX * (VMAX-1) + TEMP 


ODBB- 


6D 


52 


10 


1045 




fiDC 


HMOX 


ODBE- 


85 


02 




1050 




STO 


#TEMPL 




ODCO- 


90 


F3 




1055 




BCC 


DEX 




0DC2- 


E6 


03 




1060 




INC 


*TEMPH 




0DC4- 


DO 


EF 




1065 




BNE 


DEX 




0DC6- 


05 


02 




1070 


HMV 


LDO 


*TEMPL 




0DC8- 


48 






1075 




PHO 






0DC9- 


05 


03 




1080 




LDO 


*TEMPH 




ODCB- 


48 






1085 




PHO 






ODCC- 


09 


DO 




1090 




ORO 


#$D0 


:zet result aat weer 


ODCE- 


29 


D7 




1095 




OND 


#$D7 


; tussen $DOO0 en fMOO 


ODDO- 


85 


03 




1100 




STfl 


*TEMPH 





22 



LUODSJaftftOI^A^lOp'ftAMrtA 



E^B 5 □ S 











1105 


• 














1110 














1115 








0DD2- 


flE 


52 


IFI 


1120 




LDX 


HMOX 


0DD5- 


20 


4B 


OD 


1125 




JSR 


XSPOTIE 










1130 
















1135 


;zet de cursor 


goed 










1140 








ODOa- 


PIO 


OF 




1145 




LDY 


#*0F 


ODDfi- 


6B 






1150 




PLft 




ODDB- 


FlO 






1155 




TAX 




ODDC- 


&8 






1160 




PLO 




ODDD- 


18 






1165 




CLC 




ODDE- 


6D 


54 


10 


1170 




ODC 


HCUR 


ODEl- 


8C 


00 


D8 


1175 




STY 


ORES 


0DE4- 


8D 


01 


D6 


1180 




STfi 


DREi 


0DE7- 


80 






1185 




TXfi 




0DE8- 


88 






1190 




DEY 




ODEg- 


8C 


00 


D8 


1195 




STY 


OREG 


ODEC- 


69 


00 




1200 


OND 


ODC 


#*00 


ODEE- 


29 


OF 




1205 




OND 


#*0F 


ODFO- 


8D 


01 


D8 


1210 




STO 


DREG 


0DF3- 


60 






1215 


ENDSCROLL RIB 










■' ■' 


1220 
















1225 


;deze 


subroutine orinl 










1230 


; naar 


boven mits deze 










1235 








0DF4- 


PiD 


55 


Ifl 


1240 




LDO 


VCUR 


0DF7- 


FO 


23 




1245 




BED 


ENDVT 


0DF9- 


CE 


55 


Ifl 


1250 




DEC 


VCUR 


ODFC- 


ftO 


OF 




1255 




LDY 


#$0F 


ODFE- 


8C 


00 


D8 


1260 




STY 


ORES 


OEOl- 


PID 


01 


Da 


1265 




LDO 


DREG 


0E04- 


38 






1270 




SEC 




0E05- 


ED 


52 


10 


1275 




SBC 


HMOX 


0E08- 


8D 


01 


Da 


1280 




STO 


DREB 


OEOB- 


BO 


OF 




1285 




BCS 


ENDVT 


OEOD- 


88 






1290 




DEY 




OEOE- 


8C 


00 


Da 


1295 




STY 


OREG 


OEll- 


CE 


01 


De 


1300 




DEC 


DREG 


0E14- 


flD 


01 


D8 


1305 




LDO 


DREG 


0E17- 


29 


OF 




1310 




OND 


#$0F 


0E19- 


SD 


01 


Da 


1315 




STO 


DREG 


OEIC- 


&0 






1320 


ENDVT 


RTS 










1325 
















1330 


•deze subroutitw 










1335 








OEID- 


FID 


54 


10 


1340 


§S 


.■ LDO 


HCUR 


0E20- 


DO 


OE 




1345 




BNE 


BSl 


0E22- 


FlD 


55 


10 


1350 




LDO 


VCUR 


0E25- 


FO 


2fi 




1355 




BEQ 


ENDBS 


0E27- 


CE 


55 


10 


1360 




DEC 


VCUR 


0E2fl- 


flD 


52 


10 


1365 




LDO 


HMOX 


0E2D- 


8D 


54 


10 


1370 




STO 


HCUR 


0E30- 


CE 


54 


10 


1375 


BSl 


DEC 


HCUR 


0E33- 


flO 


OF 




1380 




LDY 


#$0F 


0E35- 


8C 


00 


Da 


1385 




STY 


OREG 


0E38- 


FID 


01 


Da 


1390 




LDA 


DREG 


0E3B- 


38 






1395 




SEC 




0E3C- 


E9 


01 




1400 




SBC 


#*01 


0E3E- 


8D 


01 


Da 


1405 




STO 


DREG 


0E41- 


BO 


OE 




1410 




BCS 


ENDSS 


OEao- 


□ a 

DO 






1 /■ 1 

1413 




DEY 




0E44- 


8C 


00 


08 


1420 




STY 


OREG 


0E47- 


FID 


01 


Da 


1425 




LDO 


DREG 


0E4ft- 


Eg 


00 




1430 




SBC 


#$00 


0E4C- 


29 


OF 




1435 




OND 


#*0F 


0E4E- 


8D 


01 


m 


1440 




STO 


DREG 


0E51- 


60 






1445 


ENDBS 


RTS 










1455 


■ 














1460 




.LI 


VDU2V1 


F02 


11F9 


4292 


-5488 









;R14.R15 !« R14, RISS + HCUR 



.•resultaat lYioet tussen 
;$0000 en $1000 liqgen 



;staat cursor bovenaan? 
;zo la, doe dan niets 
■VCUft S" VCUi - 1 

:2et cursor HMOX olaatsen terua 
;du5 een recel naar boven 

:R14, R15 := R14, R15 - HMOX 



: resultaat moet tussen 
:$0000 en $1000 liaoen 



:ki Ik of HCUR = 0 
;zo'.ia. ki Ik of VCUR = 
:zo la, doe dan niets 
•VCUR := VCUR - 1 ;' 

:zet cursor achtefaan 

:zet cursor een olaatS t9fUl 



!R14,R15 !« R14, R15 - 1 



: resultaat moet tussen 
;$0000 en $1000 I if gen 



LU0DSJ8M0|^A5;0p'ftftMrtA 



oe: 



0E52- 
0E55- 

0E5a- 
0E5B- 
0E5D- 
0E60- 
0E63- 
0ES6- 
0ES8- 
0E6fl- 
0E6D- 
0E6F- 
0E72- 
0E75- 
0E77- 
0E7a- 
0E7B- 
0E7E- 
0E7F- 
0E81- 
0E83- 
0E86- 
0E87- 
OESfi- 



EE 54 Ifl 
flD 54 Ifi 
CD 52 Ifl 
DO 10 
EE 55 Ifl 
flD 55 Ifl 
CD 53 Ifl 
FO IF 
fl9 00 
8D 54 Ifl 
flO OF 
8C 00 D8 
EE 01 
DO OF 
88 

8C 00 D8 
flD 01 D8 

18 

69 01 
29 OF 
8D 01 D8 

60 

20 F4 OC 
4C 7F CD 



D8 



0E8D- 
0E90- 
0E93- 
0E95- 
0E98- 

OEge- 

0E9C- 
0E9D- 
0E9E- 
0E9F- 
OEfll- 
0Efl2- 
0Efl4- 
OEflS- 
0Efl7- 
0Efl8- 
OEflfl- 
OEflB- 
OEflE- 
OEBO- 
0EB3- 
0EB5- 
OEBS- 
OEBfl- 
OEBC- 
OEBE- 
OECO- 
0EC3- 
0EC6- 
0EC8- 
OECg- 
OECC- 
OECF- 
OEDl- 
0ED3- 
0ED5- 
0ED7- 
OEDfl- 
OEDC- 
OEDF- 
OlEl- 



8D 62 Ifl 
flD 58 Ifl 
10 06 
8E 60 Ifl 
4C m 13 
8fl 
48 
98 
48 
fl5 
48 
flS 
48 
fl5 
48 
fl5 
48 
flD 
85 
flD 



00 



01 



02 



03 



Ifl 



Ifl 



56 
00 
57 
85 01 
flD 62 Ifl 
30 04 
C9 IF 
30 49 
flO OF 
8C 00 D8 
flD 01 Da 
85 02 
88 

8C 00 D8 
flD 01 Da 
09 DO 
29 D7 
85 03 
flO 00 
flD 62 Ifl 
91 02 
20 52 OE 
05 00 

m 56 in 



1470 

1475 

1480 

1485 

1490 

1495 

1500 

1505 

1510 

1515 

1520 

1525 

1530 

1535 

1540 

1545 

1550 

1555 

1560 

1565 

1570 

1575 

1580 

1585 

1590 

1595 

1600 

1605 

1610 

1615 

1620 

1625 

1630 

1635 

1640 

1645 

1650 

1655 

1660 

1&&5 

1670 

1675 

1680 

1685 

1690 

1695 

1700 

1705 

1710 

1715 

1720 

1725 

1730 

1735 

1740 

1745 

1750 

1755 

1760 

1765 

1770 

1775 

1780 

1785 

1790 

1795 

1800 

1805 

1810 

1815 

1820 

1825 

1330 

1835 

1840 



;deze subroutine zet de cursor mm olaAts 
•verder Mits ^eze niet rechts or^it'iitiK sat 



HT 



HTl 



HT3 
HT2 



INC HC^R 
LDfl HCUR 
CMP HMflX 
BNE HTl 
INC VCUR 
LDfl VCUR 
CMP VMflX 
BEQ HT2 
LDfl #$00 
STfl HCUR 
LDY #$0F 
STY flREG 
INC DREG 
BNE HT3 
DEY 

STY ARES 
LDfl DR£g 
CLC 

ADC #$01 
AND #$0F 
STfl Df^t 
RTS 

JSR CR 
JMP SCROLL 



;zat cursor 90m oimmM mr^im-r 
;st«at euvvff rttct^ts? 

;»l!aat cursor oo laatsi;* 
;ja^ ga scriyta 

;-»WB, zet cttffor' mmm^ 
;R14.R15 s« fi|4, tl5 + 1 



tresultaat met tussan 

$«iKKiet ii!t;#ilio i if tan 



;dBze subr. orinit i}e kar. oo scherm 
;X en Y register iltiHiifi lesaved de f 



ie in de f^lXU ataat 
m f Mt '■'vmmptmml 



:oo 41334 moet kdmen te staan 
^RINT 



JMP PSIMT 



PRINTl 



BRflF 



PHT 
XY 



STfl 


CHfl 


LDfl 


STflTUS 


BPL 


PRINTl 


STX 


$lfl60 


JMP 


$iii3fl. 


TXfl 




PHfl 


a- . 


TYfl 




PHfl 




LDfl 


♦TOPL 


PHfl 




LDfl 


*TOPH 


PHfl 




LDfl 


*TEMPL 


PHfl 




LDfl 


*TEMPH 


PHfl 




LDfl 


TOPLS 


STfl 


*TOPL 


LDfl 


TQPHS 


STfl 


*TOPH 


LDfl 


CHA 


BMI 


GRAF 


CMP 


#$1F 


BMI 


BS? 


LDY 


#$F 


STY 


flREG 


LDfl 


ORES , 


STfl 


*TEIipfc' 


DEY 




STY 


flREG 


LDfl 


DREG 


ORfl 


#$D0 


AND 


#$D7 


STfl 


*TEMPH 


LDY 


#$0 


LDfl 


CHA 


STfl 


(TEMPL) 


JSR 


HT 


LDfl 


»TOPL 


STfl 


TOPLS 



:waar moet kar. 



heen ? 



;kar. aaat naar orinter 
:ga verder in subr. PiBlil 
kar. gaat naar sdMirm 
save X en ¥*r#ai'sfer' 



;save TQPL en TOPH 



:save TEMPL en TEWPH 



:zet oude TOPL (=TOPLS) 
; 0 0 TOPL 

:zet oude TOPH (=TOPHS) . 
; 0 0 TOPH 

rqrafische svmboleYi? 
:.ia. dan wel afdrukken 
: ASCII waarde < 20 ? 
: la, aa verder bij BS? 
;nee, dan gfniftan afdruKk«i 



fTEMP !» R14,R15 



: waarde van TEMP moet tussen 
:$D000 en *a!SO0 blijve» . 

;zet de af te printew kar. 
f 00 tie huidiae cursoroositie 
;zet cursor een olaats verder 
;save TCPL 



LUODSJaftftOI^A^lOp'ftAMrtA 



0EE4- 05 01 
0EE6- SD S7 Ifl 
0EE9- 58 
OEEfl- 85 1^ - . 
OEEC- 68 ^ 
OEED- 85 02 
OEEF- 68 
OEFO- 85 01 
0EF2- 68 
0EF3- 85 00 
0EF5- 68 
0EF6- fl8 
0EF7- 68 
OEFB- AA 



0EF9- 
OEFC- 
OEFE- 
OEFF- 
0F02- 
0F04- 
0F07- 
0F09- 
OFOB- 
OFOE- 
OFll- 
0F13- 
0F15- 
0F18- 
OFlfi- 
OFIC- 
OFIF- 
0F22- 
0F24- 
0F26- 
0F29- 
0F2C- 
0F2E- 
0F30- 
0F33- 
0F36- 
0F38- 
0F3fi- 
0F3D- 
0F40- 
0F42- 
0F44- 
0F47- 



OD 



2C 80 Ifl 
10 01 

60 

2C 80 Ifl 
10 FB 
6C 7C Ifl 
C9 08 
DO 06 
20 ID OE 
4C DF OE 
C9 09 
DO 03 
4C DC OE 
C9 Ofl 
DO 06 
20 5B 
4C DF OE 
C9 OB 
DO 06 
20 F4 OD 
4C DF OE 
eg OC 
DO 06 
20 CI OC 
4C DF OE 
C9 OD 
DO 06 
20 F4 OC 
4C DF OE 
C9 IC 
DO 9B 
20 D8 OC 
4C DF OE 



0F4fl- 
0F4D- 
0F4F- 
0F51- 
0F53- 
0F55- 
0F57- 
0F59- 
0F5B- 
0F5D- 
0F5E- 
0F61- 
0F63- 
0F64- 
0F65- 
0F67- 
0F68- 
0F69- 
OFfiC- 



flE 61 Ifl 
C9 01 
FO ID 
eg 02 
FO IF 
C9 04 
FO 39 
eg 7F 
FO 10 
48 

flD 58 Ifl 
30 09 
4fl 
4fl 

BO 05 

68 

48 

20 8D OE 
60 



1845 

1850 

1855 

1860 

1865 

1870 

1875 

1880 

1885 

1890 

1895 

1900 

1905 

1910 

1915 

1920 

1925 

1930 

1935 

1940 

1945 

1950 

1955 

1960 

1965 

1970 

1975 

1980 

1985 

1990 

1995 

2000 

2005 

2010 

2015 

2020 

2025 

2030 

2035 

2040 

2045 

2050 

2055 

2060 

2065 

2070 

2075 

2080 

2085 

2090 

2095 

2100 

2105 

2110 

2115 

2120 

2125 

2130 

2135 

2140 

2145 

2150 

2155 

2160 

2165 

2170 

2175 

2180 

2185 

2190 

2195 

2200 

2205 

2210 



: i nd i t 
;test 



BREAK 
BS? 

HT? 
LF? 

VT? 

CLS? 

CR? 

FF? 



;subr. INPUT i 
;oo $12DC moet 



LDfl 




STfl 




PI fl 




STfl 




PLfl 




STfl 


*TEMPL 


PLfl 




STfl 


*T£PN 


PLfl 




STfl 




PLfl 




TflY 




PLfl 




rm 




er LDfl CHfl s 




b rsak 


RTT 


^ IHoU 










RTT 


* I MDU 




RPPOk* 


TMD 


\ *> iH / uy 




Ho 




n 1 f 


JSR 


BS 


JMP 


XY 


CMP 


#9 


BNE 


LF? 


JMP 


PHT 


CMP 


#$fl 


BNE 


VT? 


JSR 


LF 


JMP 


XY 


CMP 


#*B 


BNE 


CLS? 


JSR 


VT 


JMP 


XY 


CMP 


#$C 


BNE 


CR? 


JSR 


CLS 


JMP 


XY 


CMP 


#*D 


BNE 


FF? 


JSR 


CR 


JMP 


XY 


CMP 


#*1C 


BNE 


XY 


JSR 


FF 


JMP 


XY 



;save TOPH 

;her«t(Bi TEMPW 
;hcrstel T®PL 

Wmmtml TOPL 
her«t«l X en Y- 



;is het een BACK SPACE? 

: ia, zet cursor een olaats terug 

:fierstel a lies 

:i5 het een HORIZONTflL TAB? 

;ja, zet cursor een olaats verder 
sl« h»t een LIIC FEED? 

; ia, zet cursor een^ i^eflll verder 

;herstel alles 

:is het een VERTICAL TAB? 

:.ia, zet cursor ■two iWfesl. t»PW 
: herstel alles : o . 
:iB het een FOR» P^SH? 

: la. lYiaak schefw jie,J»oon 
:herstel alles 

;is het een mumi^ MT^Mtf- 

: ia, zet cursor vooraan fumml 

;herstel alles 

:is het een FILE SEPflRfiTOR? 

;nee. druk dan niets af 

: la, cursor home 

rherstel alles 



s het vervolo van subr. RgCCHfl in PM. 



iNPUT 



NOECHO 



LDX 
CMP 
BEQ 

CMP 
BED 
CMP 
BEQ 
CMP 
BEQ 
PHfl 
LDfl 
BMI 
LSR 
LSR 
BCS 
PLfl 
PHfl 
JSR 
PLA 



$1A61 

#1 

INITREQ 
#$2 

SSORNS 
#4 

ECHO 
#*7F 
INEND 

STATUS 
NOECHO 

fl : K 
fl 

NOECmi 



PRINT 



;her5tel X-reaister 
;is het control a? 

:is het control b? 

:i5 het control d? 

:is het DELETE? 
: ia. echo dan 

:moet het serieel? 
;ja, echo dan niet 

;echo of aeen echo? 
:aBen echo 

zet kar. weer in ACCU 

save ACCU 

;echo 

zet kar, weer in ACCU 



LUODSJaftftOI^A^^Op'ftAMrtA 





OK/ 








RTS 










2220 : 




















20 




oc 


2230 " 

^5235 INITREQ' 


JSR 


INIT 






ac 


OF 


2240 


J MP 


INPUT2 








10 


2245 


LDO 


STATIC 


0F77- 




01 




2250 


EOR 


#1 






uJ*J 


lA 


2255 


BTO 


STATUS 




40 






2260 


LSR 


fl 








OC 


2265 


LDfl 


TflB+*A 




90 


02 




2270 


BCC 


NN 






00 




2275 


OND 


#$00 


0F84- 




\.'ri 




22B0 NN 


LDX 


#$0 




Ot. 


uu 


nA 




STX 


OREG 


OFsg- 


BD 


01 


DB 


2290 


STPl 


DREG 


0F8C- 


flE 


61 


10 


2295 INPUT2 


LDX 


$1061 


Uh ol — 




Ht. 


1 

I 


2300 


J MP 


$12flE 


Ur s-i. 


on 

HU 


<ja 


1 Q 


2305 ECHO 


LDP 


STATUS 






.-. .— , 
u^ 




2310 


EOR 


#2 


Ur y / 


An 




1 Q 
i H 


2315 


STO 


STATUS 


UryH— 




He. 




2320 


JMP 


$120E 








2325 ; 














2330 :suDr. VERTRflOG vert ra. 


Ur- 9D- 




uu 




2340 VERTRftflG 


LDX 


#0 


r"~ n r" 


A A 


USA 

DU 




2345 


LDY 


#$50 


UrHl — 


PA 
LH 






2350 VV 


DEX 




Ur HZ 


UU 


r*/ 




2355 


BNE 


VV 


Ur Hm-"" 


AA 






2360 


DEY 


VV 


Ur Hu~ 




r H 




2365 


BNE 


Ur H f 








2370 


RTB 












2375 : 














2380 ;bii aanroeo v/d subr. 










2385 ; 






Ur Ho 


H :7 


X V 




2390 F0R64 


LDO 


#$10 


Ur HH~ 


on 




1 Q 
i H 


2395 


BTO 


VMAX 


ur Hu 


Qt') 


OA 




2400 


LDY 


#6 


ur HI — 


AP 


(") (') 


nA 


2405 


STY 


OREG 


ur i^ju. 


An 




oa 


2410 


STft 


DREG 


ur D«j 


PA 






2415 


I NY 




'■.'1 DD 


H 3 






2420 


LDO 


#$16 


U. Dc5 


AP 




na 


2425 


STY 


OREG 


Ur DO 


An 


C) 1 


na 


2430 


STO 


DREG 




Q9 


40 




2435 


LDO 


#$40 


OFCO- 


AH 


er--. 


1 Q 
1 rl 


2440 


STO 


HMOX 




HU 


U J. 




2445 


LDY 


#1 


0FC5- 


BC 


UU 


no 
Do 


2450 


STY 


OREG 


OFca- 


8D 


Ul 


T\ A 


2455 


STO 


DREG 


OFCB- 


A A 


03 




2460 


LDY 


#3 


OrCU- 


AO 


UiJ 




2465 


LDPl 


#5 


OFCr- 


a p 


A A 
UU 


nA 


2470 EF0R64 


STY 


AREG 


r-~ rv 1 


o n 


A i 

Ul 


no 

Uo 


2475 


STO 


DREB 


UrUa 


CA 
DV 






2480 


RTS 










2485 : 














2490 ;bii aanroeo v/d subr. 










2495 : 






Ui UD 


Aq 


wJrl 




2500 FORgo 


LDfl 


#$50 


Ur UD 


An 




1 Q 
X H 


2505 


STO 


HMAX 


Ur UB 


HU 


U jL 




2510 


LDY 


#1 


UrUU 


AP 


UU 


na 
uo 


2515 


BTY 


OREG 


Ur hU 


An 


U i 


nA 
uo 


2520 


STO 


DREG 


Ui cifcj 


PA 






2525 


I NY 




Urt<+ 


H 3 






2530 


LDfl 


#$5E 


Urhb— 


O P 


U 


nA 
uo 


2535 


STY 


OREG 


0FE9- 


BD 


A 1 


nA 
uo 


2540 


STO 


DREG 




QQ 


1 A 




2545 


LDfl 


#$16 


OFEE- 


8D 


53 


10 


2550 


BTO 


VMOX 


OFFl- 


flO 


06 




2555 


LDY 


#6 


0FF3- 


8C 


00 


DB 


2560 


STY 


AREG 


0FF6- 


SD 


01 


M 


2565 


STO 


ORES 


OFFg- 


C8 






2570 


I NY 


#$ig 


OFFfl- 


09 


19 




2575 


LDO 


OFFC- 


4C 


CF 


OF 


2580 


JMP 


EF0R64 






2sas 


.EN 





^control a. init. de 6845 
:vraag oonieuw een kar. 
zcontfol b, verwissel 
;lanazaain en normaal scrollen 



: verwissel ook 
: km aaerende en 
;vaste cursor 
:herstel X-reaister en 
:haal volaende toets binnen 
:control d. verwissel 
:dan van echo 

;haal volaende toets binnen 



FORSO worct de beeldindeling 90*22 



26 
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KEINNEIFt 



PABE 01 

00103 PRCBfiAH Cf^tSifTi t 

0020 s ■ t 

0030: 16) Ml MtiiPR ' 

0040 s ' • ""'''r^^- 

0050a 
0060: 

0070: Dit programma doet dm I/O di* noodzakeli.ik is 

0060: on wat op cassetta tm schrijvsn of om er weer wat 

0090: vanaf te halen. 

0100: De subroutines worden aangeroepen vanuit het 

0110: pri^rjMMM CfSSETTE 1. 

0120: 
0130: 

0140: Er zijn twee soorten formaten: 

0150: 

0160: - JUNIOR LOAD en SAVE 

0170: - APPLE READ sn. WRITE. 

0180: 
0190: 

0200: H»t junior formaat is zodanio veranderd dat mr ook 

0210: MttiifilMk MMKiiravaM mn gelezen kmmm Morden. 

0220: 
0230: 

0240: Het apple formaat vereist een hardware aanoassina 

0250 : dim op cte VIA Mr^Mloten kmn morOmn^ 

0260: ,v . • 

0270: . .. 

0280: Vlaggen na het lezen. 

0290: 

0300: Na afloop is de zero (Z) gezet als het programma 

0310: foutloos gelezen is. 

0320: Als deze niet staat, staat de carry vlag (C) als het 

0330: programma niet past. 

0340: De overflow (V) is nul behalve bij LOAD waar V=l 

0350: als er een ander dan het aewenste label gevonden is. 

0360: CASSETTE 1 print dit label en begint oonieuw met lezen. 

0370: 

0380: In het Y register staat een kopie van het 

0390: us register. 

0400: 
0410: 

0420: Er kan voortijdig met schrijven worden gestopt 

0430: door te breaken. SAVE wordt juist afgesloten maar 

0440: bij WRITE klopt de lengtesoecif icatie. die eerder 

0450: op casMtta is geschrevvn, niat nmmr* 

0460: 

0470: LOAD en READ kunnen ook onderbroken worden. Dit 

04001 wordt beschouwd als een data error en na CR wordt 

0490: er weer oonieuw begonnen (zie CASSETTE 1). 

0500: Het breaken tijdens lezen kan alleen als er data 

0510: birmsnkoMt. 
0520: 

0530: BMetirijving APPLE formaat. 

0540 : — . 

0550: Het apple f»jniiuiit zipt er mm iiiti 

0560: 

0570: 

0580: header start 1 0 0 

05901 

06001 I---— —I I — I I 1 I — I I — I I- 

OSlOl I I I I I i I I I I I 

0620: -I I 1 I — I I 1 I — I I — I 

0630: < > < > < > < > 

0640: 1.4mB 0.5ms 1.0ms 0.5ms 



LUODSJaftftOI^A^lOp'ftAMrtA 



PA6E 02 



0650 i 
0660t 
06701 

oiaot 

06901 
07001 
0710: 
0720 s 
0730 » 
07401 
0730 1 
07601 
07701 
07801 
07901 

oaooi 

08101 
Ol^t 
OS30I 
0840s 
01^1 
08601 
0870t 
08601 
08901 
09001 
09101 
09201 
09301 
09401 
09901 
09601 
09701 
09801 
0990t 
lOOOt 
lOlOi 
1020! 
1O30I 
10401 
lOSOi 
10601 
10701 
lOiOi 
10901 
1100* 

11 to* 

11201 
1130S 
1140> 
llSOi 
11601 
llTOi 
11801 
1190: 
1200: 
12101 
12201 
12301 
12401 
12S0I 
12601 
12701 
12801 



Na een header van ongcveer 5 mc keMt Mm start bit. 
Dlmct hierachter kent (Ni data. Er i»orcft begomMm M»t 
bit 7 uit t» zvnden. De bytM wordvn •ynchroon ult 
gezonden. Als het blok verzonden is volgt hst crc byte. 

Als sr mm sls^sdrss «n/of Isngts ep cassstlss Moridt 
gszvt gaat dit hstzslfd* AilMm zondsr crc. 

Bij sods DO mmrM ssrst adrss laaa sn dasms mS^imm 
hooq op cassstts gszst. Hisnna volgt Isngts laag 
sn Isngts hoog. 

Bij sods 80 Mordt Isngts laag gsvolgt door Isngts Hoog 
op cassstte gezet. 

.ili«'#s-'Sdi«imm ss^m^nifetsM^^saii NKNit sr mmtmm 
mm (Hnisr^ atmchimnm alf-ssn' dsts ^miMit m 2.'$ mmsk 
Ms -^mm hsaosr wordt hst blok Msggsschrsvsn. 

Bij hst Iszsn kan ds softMars ds poit^si^ mm.. ecSMrltS v 
haisii« Voordst hst blok Mordt gslszsn ««it Isssrs . 
adrss van hit laatsts byts bsksnd zijn. 
Als sr ssn puis wordt ovsrgsslagsn bstskent dit dat ds 
rsad routins nist tot ssn sind kost. Os hisr toch uit 
ts kossn sest sr ifi^m^i^. mffbm' 

Ds rsad routins bsgint set ssrst svncs ts zosksn. 
Mlsrna wordt sr gslszsn tot sr ssn start bit wordt gezisn. 
H»t hst startbit wordsn ds adrssssn ingslszsn sn vsrwsrkt 
of sr MDrdlt dsta blnrMsi giHiMslt^t/* bst s4.'ml«d.<.rss. 

In ds appls routines kan ds software worden aan^spast 
als sr maar rsksning mss wordt gehouden dat het Y 
register als tiasr werdt gsbruikt. 

'iS«i-SR''writS'Slttlt-»efe tmM mtmt ^ moto.r aafizst 
van ds rseonlsr. 

MiNiiSfv iMa^jMiimiiKi': msm- 

Voor iMil aelrryvsn is sMi ftipliep sn mm. 
spSfintiipiiKlSf nodig. 

Veo.f Ml ipBMi-'iwst.'.list-'ii^pfgpl. vati: cassstts 
tot blokvsfii ivon^m iwrstsrkt. 

Os gsinforsssrd ts wordsn ovsr de leesstatus wordsn 
sr oris Isdjss gsbruikt. 

Os ssn klok vsor ds flipfloo te verkrijgen wordt 
port A van de VIA zo g esc hake Id dat als port A 
gslszsn wordt, dat dan CA2 ssn puis afgeeft die 
als klok disnt veor ds flipflso. 
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EBB 5 □ S 



m 



1290: 

1300! 

1310S 

13201 

1330S 

13401 

13501 

13601 

13701 

13801 

1390J 

14001 • 

14101 

14201 

1430: 

1440: 

1450: 

14601 

1470: 

14801 

1490: 

1300: 

1510: 

1520: 

1530: 

1540: 

1550: 

1560: 

1570: 

1580: 

1590: 

1600: 

1610: 

1620: 

1630: 

1640: 

1650: 

1660: 

1670: 

1680: 

1690: 

1700: 

1710: 

1720: 

1730: 

1740: 

1750: 

1760: 

1770: 

1780: 

1790: 

1800: 

1810: 

1820: 

1830: 

1840: 

1850: 

I860: 4200 

1870: 

1880: 

1890: 

1900: 

1910: 

1^1 



Cfl2 
VIA 



Pft7 



PA6 
PA4 



7474 



•ICK 
I 

i 0 
I — I- 
I- 



•I 



Ql — 
-I 

— I I 

•I 



iOK CASSETTE 
J BMD 



\-mm m t 

I n I 

3.9K I /♦I—I 

- ' i 

741 Vl l 

I i 
* BHD 




mm 

CAS SETTE^ 



I \ 220 LSI 

■L>2r.^^*<:^-^ l-EEST KARAKTERS 



««*«»»•»««*«*««««««« 



LEtST S#l^ 
LEEST TROEP 



bij da omm MM^ tim vosdingsspanning met 
2 tantMls van lu Morden ontkoppeld. 

Benodigde geheugenplaatseni 

In MODE (00F9> ataat da mode. 

In TPB6 (00FA,00FB) staat hat begin adras. 

In TPEN (OOFC.OOFD) ataai hat aind adratw 

Voor SAVE en LOAD staal lwJ.M (Wt) hat labal. 

BiA READ en WRITE Nordt UWtTiabrHkt aim 

hulpgaheugen. 

SAVE an LOAD gabrwikaii an TEMP (4 PLAATMN) 
nadat deze plaatsan aarat sp »tmk f^cvt. 

Bij alia routinaa Mordt aarat da interruot 
gablokkaard en na afloop wear teruggezet. 

Hat ia mogenlijk oa aan gadaalta ta kiazan 
van dit prograiaib In combinatie mat CASSETTE 1 
kan er gekozafi tvi|i|ian om allaan de aople routinaa 
over te houden. 

Ik kiea 4200 ala atartadraa (willakaurig?). 
Daza routinaa kunnan later in eoroa worden 
gazat op da plaata van da huidiga TH. 



0R6 «4200 

via adrawMm 

01 18 VIAPA * tlSOl 
03 18 VIAPAD a tlBOZ 

m m viAPCR • »i8oc 



gabruikt bij READ en WRITE 
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KENMI 



POBE 04 



1930: 
19403 
19301 
1960: 
1970t 
1980". 
1990! 
2000: 
2010: 
2020: 
2030: 
2040: 
2050: 
2060: 
2070: 
2080: 
2090: 
2100: 
2110: 
2120: 
2130: 
2140: 
2150: 
2160: 
2170: 
21803 
2190! 
2200! 
2210! 
2220! 
22301 
2240! 
2250! 
2260! 
2270! 
22803 
2290: 
2300: 
23101 
23201 
23301 
23401 
2350: 
2360! 
2370 i 
23801 
23901 
24001 
2410: 
24201 
2430: 
24401 
2450: 
2460: 
2470: 
2480: 
2490: 
25001 
25101 
25201 
25301 
25401 
25501 
25601 



pi a adressen 



80 m 

81 lA 

82 Ifl 
S3 lA 

F4 1ft 

D4 1ft 

D5 l A 



01 18 
01 18 
01 18 



EC 00 

EE 00 

F9 00 

Fft 00 

PC 00 

FE 00 



4200 4C 13 44 
4203 4C 95 43 
4206 4C 7B 42 



4209 
420ft 
420B 
420E 
4210 
4212 
4213 
4215 
4217 
4218 
421ft 
421C 
421D 
421F 
4221 
4222 
4223 
4224 
4226 
4229 
422B 



08 
78 

20 3C 46 
24 F9 
10 39 
36 

05 FC 
E5 FA 
ft6 

ft5 FD 
E5 FB 
C8 

DO 02 
69 00 
48 
98 
48 

fl9 20 
20 IB 43 
flO 2C 
24 F9 



PIftPft 
PIfiPftD 
PIftPB 
PlftPBD 



TIMR * 
TIRD » 

mn » 



»lft80 
$lft81 
«1A82 
•1A83 

*lftF4 
«1AP4 



^r«iitf tiij lAVE mn um 



AdrMdvfiniti* Voor READ WRITE 

TP IN * VlftPft leest status 0DaMf» 
TPOT * VIAPfi zet flipfloo om 
TPRST * VIAm #I«1UMI AWI I* 

biwsiftovts (bit 7«0) 



80 lA mm 



$1A80 om Imum of weltriavm t* 
onderbreken 



geheugenplaatsen 

CH8U * fOOEC checksum 

TEMP • - -^mm- «02 tijdslijk gabntlti 

MODE * ♦00F9 mode 

TPBB * tOOFfi begin 

TPEN « *OOFC Bind 

LflBL » ♦OOFE label /hulD 

Om de prografflmas gemakkelijk aan elkaar tc 
kunnen passen, begint ook dit 
mmn aantal jumps. 

JMP LOAD 
JMP SftVE 
JMP READ 

apple write i/o 



progrMMMi Mil 



WRITE PHP 
SEI 
JSR 
BITZ 
BPL 
SEC 
LDftZ 
SBCZ 
TftY 
LDftZ 
SBCZ 
I NY 
BNE 
ftDCIM 

URB PHft 
TYft 
PHft 
LDftIM 
JSR 
LDYIM 
BITZ 



STWRT 

MODE 

WRT 

TPEN 



TPEN 
TPBB 

URB 

too 



♦20 

HEftDR 

*2C 

MODE 



write apole formaat 
blokkeer interruots 
init pia via write 

blokwrite . i ,- 



+01 ,:. 

+01 

t«l mr 9mn bij op 



5 Mc h»«d«r 
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KENNEIR 



PA6E 05 



2570! 


422D 


50 


OE 






BVC 


MRC 


2580: 


422F 


fl5 


FA 






LDOZ 


TPBB 


2590: 


4231 


20 


12 


43 




JSR 


WRBYTE 


2600: 


4234 


ftO 


2E 






LDYIM 


♦2E 


2610: 


4236 


05 


FB 






LDOZ 


TPBB 


2620: 


4238 


20 


12 


43 




JSR 


WRBYTE 


2630: 


423B 


flO 


2E 






LDYIM 


*2E 


2640: 


423D 


68 






URC 


PLO 




2650: 


423E 


20 


12 


43 




JSR 


WRBYTE 


2660: 


4241 


AO 


2E 






LDYIM 


»2E 


2670: 


4243 


68 








PLO 




2680: 


4244 


20 


12 


43 




JSR 


WRBYTE 


2690: 


4247 


ftO 


10 






LDYIM 


*10 


2700: 


4249 


DO 


02 






BNE 


WRTE 


2710: 


424B 


no 


20 




WRT 


LDYIM 


♦20 


2720: 


424D 


A2 


02 




WRTE 


LDXIM 


♦02 


2730: 


424F 


B5 


F9 




WRTF 


LDAZX 


MODE 


2740; 


4251 


48 








PHA 




2750! 


4252 


Cfl 








DEX 




2760: 


4253 


10 


FA 






BPL 


WRTF 


2770! 


4255 


18 








CLC 




2780! 


4256 


08 








PHP 




2790! 


4257 


98 








TYA 




2800 


4258 


20 


IB 


43 




JSR 


HEODR 


2810 


425B 


AO 


27 






LDYIM 


$27 


2820 
2830 


425D 


A2 


00 




WRA 


LDXIM 


♦00 


425F 


41 


FA 






EORIX 


TPB6 


2840 


4261 


48 








PHA 




2850 


4262 


Al 


FA 






LDAIX 


TPBG 


2860 


4264 


20 


12 


43 




JSR 


WRBYTE 


2870 


4267 


flO 


IB 






LDYIM 


♦ IB 


2880 


4269 


20 


EO 


45 




JSR 


NXTOfl 


2890 


426C 


10 


04 






BPL 


WRI 


2900 


426E 


68 








PLA 


mm 


2910 


426F 


90 


EC 






BCC 


2920 


4271 


48 








PHA 




2930 


4272 


68 






WRI 


PLA 




2940 


4273 


ftO 


22 






LDYIM 


♦22 


2950 


4275 


20 


12 


43 




JSR 


WRBYTE 


2960 


4278 


4C 


02 


43 




JMP 


READRD 


2970 
















2980 










aople 


read i/o 


2990 












PHP 




3O0O 


! 427B 


06 






READ 




3010 


. 427C 


78 








SEI 




3020 


! 427D 


20 


25 


46 




JSR 


STRED 


30301 4280 


24 


F9 






BITZ 


MODE 


3040! 4282 


10 


40 






BPL 


RDBLO 


3050 


: 4284 


20 


62 


43 




JSR 


SYNC 


3060 


! 4287 


10 


48 






BPL 


RDBLO 


3070 


! 4289 


00 


3B 






LDYIM 


♦3B 


3080 


! 428B 


24 


F9 






BITZ 


MODE 


3090 


! 428D 


50 


17 






BVC 


RDLA 


3100 


! 428F 


20 


3E 


43 




JSR 


RDBYTE 


3110 


! 4292 


48 








PHA 




3120 


: 4293 


flO 


37 






LDYIM 


♦37 


3130 


! 4295 


20 


3E 


43 




JSR 




3140 


: 4298 


00 








TAX 




3150 


: 4299 


05 


F9 






LDOZ 


mm 


3160 


: 429B 


40 








LSRA 




3170 


: 429C 


68 








PLA 




3180 


! 429D 


00 


34 






LDYIM 


♦34 


3190 


: 429F 


BO 


05 






BCS 


RDLA 


3200! 42fll 


BS 


FA 






STOZ 


TPBG 



Bchrijf lengte 



2.5 sac header 

5 sec header 

bewaar mode en begin 



bewaar carry 



tMtrekttn ere pheck 



breek 
•ind ? 

•chrijf cfwck 



read aoole formaat 
init via Dia read 
read blok 
break 



negeer start ad res? 



zet begin 
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m /. OAT 


DC 

ob 


CD 






STXZ 






OO 








UtY 






20 


3b 


AT 


Dm A 


JSR 


3240 


: 4209 


48 








PHH 


3250 


: 42hH 


Art 

HO 


37 






LDYIM 


3260 


: 42PC 


20 


SE 


43 




JSR 


3270 


: 42HF 


RB 








TRY 


3280 


: 42B0 


68 








PLR 


3290 


: 42B1 


ftfl 








TfiX 


3300 


: 42B2 


r\A 

DO 


A4 

01 






BNE 


3310 


: 42B4 


a a 
OO 








DEY 


3320 


: 42B5 


CH 






RDPC 


Ar" V 

OEX 


3330 


: 42B& 


16 








CLC 


3340 


: 42B7 


OA 

BH 








TV A 

TXfl 


3350 


: 42BB 


65 


^A 

FH 






RDCZ 


3360 


: 42BA 


AA 

HH 








TAV 

TRX 


3370 


: 42BB 


3o 








TYH 


3380 


: 42BC 


dD 


CO 
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: 44F6 


A6 


FA 






LDXZ 


TPBG 


verlaaa laatste adres 


6390 


: 44F8 


DO 


02 






BNE 


LODRD 


staat itwiers een te ver 


6400 


! 44FA 


C& 


FB 






DECZ 


TPBG 


+01 
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6410 


: 44FC 


CA 






Ltn}ftD 


OEX 






6420 


! 44FD 


86 


FC 






STXZ 


TPEN 


verhuis naar TPEN 


6430 


! 44FF 


fl6 


FB 






LDXZ 


TPBG 


+01 


6440 


! 4501 


66 


FO 






STXZ 


TPEN 


+01 


6450 


i 4503 


m 






LQDRC 


TAX 






6460 


: 4504 


66 








PLA 




haal node en begin terua 


6470 


! 4505 


85 


F9 






STAZ 




6480 


i 4507 


68 








PLA 




6490 


i 4508 


85 


Ffi 






STAZ 


TPB6 




6500 


! 450fl 


68 








PLA 






6510 


: 450B 


85 


FB 






STAZ 


TPB6 


+01 


6520 


! 450D 


68 








PLn 




hMl begin status 


6530 


! 450E 


29 


04 






ANDIM 


»04 


intarruiil %wmt 


65A0 


! 4510 


DO 


04 






BNE 


LOO I NT 




6550 


! 4512 


98 








TYA 






6560 


! 4513 


29 


FB 






ANDIM 


♦FB 


reset I vlag 


6570 s 4515 


A8 








Tnv 




6580: 4516 


98 






LDDINT 


Tvn 




Y naar status 


6590! 4517 


48 








PHn 






6600: 4518 


8n 








TXA 






6610: 4519 


28 








PLP 






6620: 451A 


60 








RTS 




einde alle routines 


6630: 
















6640: 








subroutines aebruikt door load en save i/o 


6650 


! 
















6660: 451B 


20 


60 


45 


OUTBTC 


JSR 


CHKT 


eerst chksum 


6670: 451E 


48 






OUTBT 


PHA 




ouitwK 


6680 


! 451F 


4A 








LSRA 






6690 


. 4520 


4A 








LSRA 






6700 


! 4521 


4A 








LSRA 






6710 


! 4522 


4P 








LSRA 






6720 


! 4523 


20 


27 


45 




JSR 


HEXT 




6730 


! 4526 


68 








PLA 






6740 


! 4527 


29 


OF 




HEXT 


ANDIM 


*0F 




6750 


! 4529 


C9 


on 






CMPIM 


«0A 




6760 


! 452B 


90 


02 






BCC 


HEXAT 




6770 


! 452D 


69 


06 






AOCIM 


»06 




6780 


: 452F 


69 


30 




HEXnT 


AOCIM 


♦30 




6790 


! 4531 


PO 


08 




□UTCHT 


LDYIM 


♦06 




6800 


! 4533 


84 


EE 






STYZ 


TEMP 


6810 


. 4535 


no 


02 




TRY 


LDYIM 


♦02 




6820 


! 4537 


84 


EF 






STYZ 


TEMP 


+01 


6830 


! 4539 


BE 


66 


45 


ZON 


LDXAY 


NPUL 




6840 


! 453C 


48 








PHA 






6850 


453D 


2C 


05 


m 


ZONA 


BIT 


INTR 


tl jd ? 


6860 


! 4540 


10 


FB 






BPL 


ZONA 


6870 


! 4542 


B9 


67 


45 




LDAAY 


TIMG 




68801 4545 


8D 


F4 


m 




STA 


TIMR 




6890: 4548 


no 


82 


m 




LDA 


PIAPB 


zet pia B o«i 


6900 


! 454B 


49 


80 






EORIM 


♦80 




6910 


! 454D 


80 


82 






STA 


PIAPB 




6920: 4550 


Cfl 








OEX 






6930: 4551 


DO 


En 






BNE 


ZONA 




6940 


. 4553 


66 








PLA 






6950: 4554 


C6 


EF 






DECZ 


TEMP 


+01 


6960: 4556 


FO 


05 






BEQ 


SETZ 




69701 4558 


30 


07 






BMI 


ROUT 




6980: 455A 


4fl 








LSRA 






6990: 455B 


90 


DC 






BCC 


ZON 




7000: 455D 


no 


00 




SETZ 


LDYIM 


♦00 




7010: 455F 


FO 


08 






BEQ 


ZON 




7020: 4561 


C6 


EE 




ROUT 


DECZ 


TEMP 




7030: 4563 


DO 


DO 






BNE 


TRY 




7040: 4565 


60 








RTS 
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ff 



nml 

7H0I 
7120» 

nmi 
nmt 
7iao» 

7160s 
71701 

V^l 

ttlOl 
72^1 

7230: 

7240: 

7250: 

7260! 

7270: 

7280: 

72901 

7300 J 

7310 

7320 

7330 

7340 

7350 

7360 

7370 

7380 

7390: 

74001 

74101 

74201 

74301 

74401 

74501 

74601 

7470: 

7480 

7490 

75001 

75101 

75201 

7530 

75401 

7550: 

75601 

75701 

75801 

75901 

76001 

7&101 

76201 

76301 

76401 

76501 

7660 

76701 

76801 



4i66 02 
iS67 C3 



tS&A 20 79 45 
456D 68 
456E 18 
456F 65 EC 
4571 85 EC 
4573 90 02 

4575 E6 ED 
4577 68 

4576 60 



*S71 
A57C 
457E 
457F 
4580 
4581 
4582 
4584 
4587 
4589 
458B 
458D 
458F 
4591 
4593 
4595 
4597 
4599 
459B 
459C 
459D 
459E 
459F 

45A0 
45A2 
45A5 
4507 
4508 
45flB 
45RC 
450D 
45flE 
45B1 
45B3 
45B6 
45B8 
45BB 
45BD 
45BE 
45C0 
45C3 
45C5 
45C6 
45C9 
45CC 
45CE 
45CF 
45D1 



20 7E m 

BO 20 

on 

OA 
OA 
OA 

85 EE 

20 AO 45 
C9 2F 
FO 13 
90 10 
C9 47 
BO OC 
E9 3F 
90 02 
69 08 

29 OF 
05 EE 
C8 ■ 
60 

CB 
38 
60 

A9 40 
20 A7 45 
90 FB 
48 

20 AE 45 

68 

6A 

60 

2C 82 lA 
10 FB 
flD D4 lA 
00 FF 
8C F6 lA 
00 13 
86 

10 FD 
2C 82 lA 

30 FB 
38 

ED D4 10 
6C F& lA 
00 06 
88 

DO FD 
60 



MPIJL 






TIMB 




»C3 




m 


!^ 

♦71 


CHKIN 


JSR 


INBYT 


CHKT 


PHA 






CLC 






ADCZ 


CHSU 




STAZ 


CHSU 




BCC 


CHKTA 




INCZ 


CHSU 


a«<TA 


PLA 




RTS 




IWBYT 




TPASC 




BCS 


TPASJ 


TPASC 


A8LA 






ASLA 






ASLA 






ASLA 






STAZ 


TEMP 




JSR 


INASC 




CW>IM 


♦2F 




BEQ 


TPASJ 




BCC 


TPASI 




CMPIM 


'G 




BCS 


TPASI 




SBCIM 


*3F 




BCC 


TPASA 




ADCIM 


•08 


TPASA 


ANDIM 


fOF 




ORAZ 


IBfP 




INY 






RTS 




TPASI 


INY 
kTB 




TPASJ 




INASC 


LDAIM 


•40 






INPULS 


BCC 


INCHA 




PHA 






JSR 


INPUS 




PLA 






RORA 






RT8 




IhPUS 


BIT 


PIAPB 




WPi, 


INPUS 




LOA 


TIRD 




LDVIM 


tMT 




STY 


TlMfi 




LOYIH 


•13 


INPA 


0£Y 






BPL 


INPA 


IHPB 


BIT 


PIAPB 




BMI 


INPB 




SEC 






SBC 


TIRD 




STY 


TIMR 




LDYIM 


•06 


INPC 


DEY 






BNE 


INPC 




RTS 





aantal Iwm 
tijd laag 



ctwefesuiM adjust 



haalt tex binnsn 



eind 

gmin hex 
aeen hex 



oo 



C-1 



haal 8 bits 



wacht 00 puis 



-4m 



ti.id berBksnivMi 

+02> 
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7&90: 

7700: 

7710: 

7720: 

7730: 

7740: 

7750 s 

7760: 

7770: 

7780: 

7790: 

7800: 

7810: 

7820: 

7830 s 

7840 1 

7850: 

7860 

7870 

7880 

7890 

7900 

7910 

7920 

7930 

7940 

7950 

7960 

7970: 

7980 

7990 

8O0O 

8010 

8020 

8030 

8040 

8050 

8060 

8070 

8080 

8090 

8100 

8110: 

8120 

8130 

8140 

8150 

8160 

8170 

6180 

8190 

8200 

8210 

8220 

8230 

8240 

8250 

8260 

8270 

8280 

8290 

8300 

8310 

8320 

8330 

8340 

fi350s 

6360: 

8370: 

Bsaos 



45D2 


ftO 


36 




DISER 


LDYIM 


»36 


error 


45D4 


DO 


06 






BNE 


DISPA 




45D6 


ftO 


69 




DISSY 


LDYIM 


$69 


sync 


45D8 


DO 


02 






BNE 


DISPA 


45DA 


AO 


55 




DISOK 


LDYIM 


«SS 


ok 


45DC 


8C 


ao 


lA 


DISPA 


STY 


PIAPfl 




45DF 


M 






DISPL 


TOY 






45E0 


AD 


82 


1ft 




LDfl 


PI APE 


andsrc 


45E3 


49 


02 






EORIM 


t02 


45E5 


80 


82 


tft 




STft 


PIAPB 




45EB 


98 








TYfi 






45E9 


60 








RTS 







de subroutines hierna worden dog9 allv 
vier de i/o routines aebruikt. 



vergelijk TPB6 met TPEN 

+01 
+01 

verhooq TPBG 

■ ,1 • r " 

+01 

bniak test 



reset via 



reset oim 



45EA 


A5 


FA 




NXTAfl 


LOAZ 


TPBG 


45EC 


C5 


FC 






CMPZ 


TPEN 


45EE 


A5 


FB 






LOAZ 


TPB6 


45F0 


E5 


FO 






SBCZ 


TPEN 


45F2 


E6 


FA 




NXTA 


INCZ 


TPBG 


45F4 


DO 


02 






BNE 


NXTB 


45F6 


E& 


FB 






INCZ 


TPB6 


45FB 


AD 


80 




NXTB 


LOA 


BRKY 


45FB 


60 








RTS 




45FC 


A9 


00 




INI VIA 


LOAIM 


too 


45FE 


8D 


oc 


18 




STA 


VIAPCR 


4601 


8D 


03 


18 




STA 


VI APOD 


4604 


8D 


01 


18 




STA 


VIOPA 


4607 


60 








RTS 




4608 


AD 


82 iA 


IMIPIA LOA 


PIAPB 


4&0B 


29 


7F 






ANOIM 


♦7F 


460D 


09 


7E 






□RAIM 


»7E 


460F 


80 


82 


lA 




STA 


PIAPB 


4612 


AS 


7F 






LOAIM 


»7F 


4614 


80 


80 


lA 




STA 


PIAPA 


4617 


80 


81 


lA 




STA 


PIAPAD 


461A 


80 


63 


lA 


INPIft 


STA 


PIAPBO 


46iD 


t@; 








ftW 




4&1E 


20 


mm 


STSAV 


JSR 


STSA 


4621 


A9 


FF 






LOAIM 


*FF 


4623 


DO 


F5 






BNE 


INPIA 


4625 


20 


FC 


45 


STRED 


JSR 


INIVIA 


4628 


A9 


70 






LOAIM 


♦70 


4&2A 


6D 


01 


18 




STA 


VIAPA 


462D 


80 


03 


18 




STA 


VIAPAD 


4630 


20 


08 


46 


STLOD 


JSR 


INIPIA 


4633 


Ag 


33 






LOAIM 


»33 


4635 


80 


82 


lA 




STA 


PIAPB 


4636 


A9 


20 






LOAIM 


*20 


463A 


DO 


12 






BNE 


WAIT 


463C 


20 


FC 


45 


STWRT 


JSR 


INIVIA 


463F 


A9 


OA 






LOAIM 


»0A 


4641 


80 


OC 


18 




STA 


VIAPCR 


4644 


20 


08 


46 


STSA 


JSR 


INIPIA 


4647 


A9 


5E 






LOAIM 


*5E 


4649 


80 


82 


lA 




STA 


PIAPB 


464C 


A9 


80 






LOAIM 


*60 


4&4E 


48 






WAIT 


PHA 




464F 


A9 


FF 






LOAIM 


*FF 


4651 


20 


50 


46 


wm 


JSR 


WAJ 


4654 


E9 


01 






SBCIM 


*01 


4656 


BO 


F9 






BCS 


WAA 


4658 


68 








PLA 




4659 


E9 


00 






SBCIM 


fOO 


465B 


BO 


Fl 






BCS 


WAIT 


4650 


60 






WAJ 


RTS 





set pi a save 

bit 7 Ola 6 outoidi 
set via raacl 



set oia load 
groene led 



set via write 

rolHi'' tm -' 
wacht routine 
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FORTH 

Reinier Kleioool 

Rotterdamseri jweg 122 

3042 AS Rotterdam 

Tel. s 010 - lS402gS (iaeek-endsJ 

FORTH wordt over het algemeen §»2i#in als het buitenbrent je van de com- 

putertalen. Dit komt, omdat FORTH in zo veel dingen afwijkt van "con- 
vent ionele" talen. Omdat FORTH nu ook draait oo onze 6502-systemen, is 
het goed er wat aandacht aan te besteden. 

Slinj tfpisch FORTH-systeenri heeft disc's. Dit, omdat FORTH niet geoonden 
Is aan het S4K bereik van e#n micro. Voor FORTH ziet het geneugen er 

, Liit als een grote verzamel ing "blocks". Een block kan een stuk te<st 

bevatten, of data. Elk FORTH programma wordt in zo'n block geschreven. 

U ZLilt waarschi jnl i jk wel weten dat je FORTH kan uitbreiden met eigen 
instruct ies. Eigenlijk doe je dat de hele tijd, want elx orogramma is 
oo zich een nieawe instruktie in FORTH. 

Meestal bestaat het machinetaalorogramma van FORTH uit drie sua-oro- 
gramma's, namelijk* FORTH, etS^tittV &n eventueel eWh 'asB««fbler. FORTH 
is het gedeelte dat de proaraiYiiYia' s uitvoert. De editor helot bij het 
maken van nieuwe programma's. De assembler kan handig zijn voor snelle 
toepassingen. 

Omdat iedereen ^n eigen woorden (het FORTH-jargon voor instruktie) 
kan makefi twti die e»n eiqm naam km gevvnl tm filtinand do unditmliti 
systeem kunnen werken. Daarom zijn er standaarden gemaakt, die aange- 
ven welke woorden er minimaal in FORTH moeten zitten, en welke namen 
ze moeten hebben (bijvoorbeelds de FIS-FORTH en FORTH-79 standaarden). 
Verder is er ook een standaard afsoraak over de vorm van het commen- 
taar van nieuwe woorden. 

Bijv»eifbiwild! ' 

SWAP (Nl N2 — N2 Nl) 

Verwisselt de bovenste twee stack-waardeVV. 

{SWflP> is de naam van het woord. Hetgeen tussen haakies staat geeft 
aan wat er met de stack gebeurt (wat de stack precies is, komt later 
nog aan de orde). Met deze soeciale notatie kan iedereen het nieuwe 
woord begrijoen en gebruiken. De lijst waaroo alle woorden met commen- 
taar staan heet een "glossary". 

Na deze algemene kennismaking moeten we maar eens aan het werk gaan! 
Het woord "stack" is al gevallen. Dit is geen toeval, want bij FORTH 
draait alles om die stack. De stack in FORTH wordt niet gebruikt om 
return- ad ressen te bewaren, maar om te rekenen (net als bij dm reken- 



LUODSJaftftOI^A^^Op'ftAMrtA 



(nachines van Hewlet Packard). Om twee getallen oo te tellen moeten ze 

eerst OD de stack staan. Bijvoorbeeld: -C5 6 + . > 

{+} is het FDRTH-woord yopr ootellen (ja, logischl). 

{.> is het FORTH-woord Votit druk oo beeldscherm af. 

De spaties scheiden getallen en FDRTH-woorden. Pas dut go«d oo! 

We kunnen nu het FORTH-Moord <+> sens docuMenteren. 

+ (Nl N2 ~ SOM) 

tml de bovenste twee stack-waarden oo en laat het ant woo rd oo de stack 
•eWfeer. 

(Ma " — " staat wat oo de stack achterblijft na het woord). 
Een gevolg van deze methode is wel dat a lies omgekeerd moet worden: 
2+3 wordt dus 23+. Dit lijkt een domme methode. maar als U dit 
Bvnmaal door hebt, weet U al meer dan de helft van FORTH' Want alle 
woorden werken zo. 

Boed, dan nu een programma in FORTH! U toetst twee getallen in, en Uw 

suiwr-smile hyp^rintelligsnte eoaeatcf iberekent de som! We noemen het 
nituwa Moord "SOM". 

iON <N1 N2 — ) 

Bereken de bom en druk deze af. 

(Na " — " staat niets, sr wordt dus niets oo de stack achter gelaten) 
Om hmt te laten werken moet U eerst Uw FORTH laden en starten. Na het 
iMOmx Start U 00 ♦2000. FORTH antwoordt met FIB-FORTH 1.1 . Dan toetst 
U in iWmm <f«THJft»> >»- Oit, offi de NMI- en IRQ-vectoren te zetten. Dan 
{EMPTY-BUFFERS (RETURNS > om de editor te initial iseren. Nu is FORTH 
voor gebruik gereed. 

Nu maken we f 9iJ«>. toets in* < ! SOMF* . ; < RETURN) > (alleen wat tussen 
haakjes staat). Let oo de soaties tussen de woorden! FORTH antwoordt 
nu met "OK". Het woord bestaat nu» 

i|« y iit l,tl%^|^©*^8tg*^ l^i^ mist (RETURN) > intoetsen. FORTH 
zmt dan tmn list geven van alle woorden die het oo dat moment kent. 

VLIST (— ) 

S«»f de lijst van FORTH-woorden die nu bestaan. 

Dm h«t prograinma nu te gebruiken, toetsen wei ^ i SOM (RETURN) > 
FORTH antwoordt dan met: 1 1 OK. 
*»*GEFELICITEERD«»* EUREKfi ! ! 

Otti een woord dus te "run-nen" (om eens een Basic-term te ge&ruiken) is 
hat genoeg om de naam in te toetsen met (RETURN), de CR-toets dus. 
Vanaf het begin \rm^-Wm% *1' Vter iiihorden gebruikts 
{BREfiK>, <EMPTY-BUFFERS>, •CVLIST> en il^J. - ' " 

In het progr#mma kwamen de woorden {:> en -C ; > voor. Deze woorden z or- 
gan dat wat m €*% komt als nieuw woord wordt toegevoegd, totdat {;> 
wordt t»g»n gckomen. Het is oo dsze wijze dus mogeUjk FORTH-orogram- 
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ma's ta schrijven. Maar dit is met ideaal. Mant, als het programma 
Witt m&cht werken, dan kan het niet worden verbeterd. Immers, het is 
dan 41 l^compileerd (door {:> en {;>). Hi«* Sjbiit de editor uitkomst. 
Haar evrst lijkt het me verstandig om ¥m% pMr Noorden te Itrsn, 

(STflCKMANIPULATIg) 

DUP CN — N N) 

Kopieer het bovenste getal oo de stack. 

tNm (Ni N2 Ml 1^ mt 

Koplcer het eennabovenste getal oo de stack. 

ROT (Nl N2 N3 «^ m HZ Nl) 

Roteer de drie bovenste stackwaarden. 

DRCP (N --) 

Vemietig de bevenste stackMaarde. 

' -mjp iO — 0) 

(Nl -- Nl Nl) 
Kopleer alleen als OO. 

(REKSNEN) 

+ mi N2 — SOM) 

Bereken de som van twee getal 1 en. 

(Nl N2 — VERSCHIL) 
Bsrekcn het verschil van tiitee getal len. 

# Nl N2 — PRODUKT) 

Bereksn het orodukt van tmm getal len. Soreek * uit als star. 

/ (Ml m * msttmct 

Bereken het integer quotient van Nl an N2. Soreek / uit als "slasn". 

fORTH kan allevn fixvct^ooint rekewn. Dit is eehter geen bezwaar, want 
er is ruimschoots vtorzien in hulowiddelen om de getallen als bfeuken 
af te drukken. 

{IN/UITVOER) 
Nl — ) 

Druk Nl af in getalstelsel "Base" alst integer met teken. 
Spreek . uit als "dot". 

mm (Nl --) 

Sruk Nl af als RSCII-karakter (vergelijk: CHR«(N1)). 
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Wvk dm •tFing volgend aan ." letterlijk af, totdat een " tegengeko- 
mm wordt (\^^lijk: PRINT"PIET"). Soreek {. "> uit als"dot-auote" L»* 
op, {."> is een woord, dus een soatie erna. " is geen woord, het dient 
Blechts om het einde aan te geven. Soatie dus niet verolicht. 

CR (— ) 

DT*uk een carriage return af oo de terminal. 

SPACE (— ) 

Druk een spatie af oo de terminal. 

SPACES (N — ) 

Druk N soaties af oo de terminal, 

(DICTIONARY MANAGEMENT) 

FORGET (— ) 

Verwijder het woord volgend od FORGET uit de dictionary. 
COLD (— ) 

Varwijder alle eigen woorden uit de dictionary. 
Het standaard-FORTH blijft dus over. 

De Editor. 

De editor is er om FORTH-orogramma' s makkelijk** it U^mmn. ttmlsmikkmlm 
In de editor maak je eerst een tekst, die dan door FORTH gecortpileerd 
zal worden, net zoals bij de Micro-ADE assembler. 

ftllereerst moeten de editor-woorden aan FORTH aekdisfwiltf worden. Dit 
klinkt ingewikkeld, maar je hoeft alleen {EDITOR (RETURN) > te toetsen 
»tl KU«r is kees. Als je dan nu VLIST geeft, zul je zien dat er een 
hooD woorden bij zijn gekomen. 

De editor gebruikt de blocks om de tekst on te slaan. Om die reden 
moeten we eerst een block kiezen om in te werken. Laten we veronder- 
stBllBn dat we nog geen orogramma* » In ife lliieke fte^ie« itiiin. All we 
nq bigvoorbeeld {5 CLEAR (RETURN) > intoetsen, dan wordt blocK 5 ge- 
•eleeteerd, an meteen automatisch echoongemaakt. Met L (RETURN) komt 
de inhoud 00 .«l?herm. Dit moet ei* If tiifzieitt 
SCR # 5 

0 

i 

2 

enzovoort, tot regel 15. Als het scherm met leeg is, maar allemaal 
troep vertoont, heeft U of iets niet goed gedaan, of is er geen geheu- 
°^ ♦6000. Vergeet ook niet om {EMPTY-BUFFERS > te geven 
'mum dat kan ook leuke resultaten leveren! 

Boed, we hebben nu een vrij scherm (block). Laten m ef dm m iet* im 
zotten. Met <l P HALLO kom er EENS kijken. (RETURN) > Hebben we het m 
regel l gezet. Bewijs het maar met CL (RETURN)}' 

Met <2 P WAT IK IN MIJN BLOCKJE VIND . (RETyRN>> zetten we de rest 
©19 de regel 2, enzovoort. 
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Maar wat is nu een editor zonder dat er fouten kunnen worden VBrbBterd. 
WX* y rni zorgt voor de fouten, dan zal de editor ze wel oolossen. Mot 
■C2 D <RETURN> > bijvoorbeeld wordt reqel 2 verwijderd uit het geselecteer- 
de scherm. De andere reaels schuiven 1 omhoog. Regel 15 wordt blank. 
»•* il f> *f®r#t wigel 2 in de regelbuffer (POD genaamd) gezet. Dit is tf 
sien doordat de editor de regel afdrukt met een oijltje erins 
2 '^WflT IK IN MIJN BLOCKJE VIND . Het oijltje is de reqel-cursor. 
Met *Cf IM <lltTy«l#> w«i'#t de cursor achter "IN" gezet. Met <m vindt d« 
editor de volgende verschi.ming van "IN", duss 
2 WflT IK IN MIJN BLOCKJE VIN'D . 

{TCIP> doet de cursor weer terug bovenaan (HOME). 

CX PI6T> zoekt PIET oo in PAD (oftewel de current reael) en verwijdert 
het. 

<.C KLflOS> zet vanaf de cursoroosit ie het woord KLftflS neer. 

{3 I> voegt de inhoud van PftD in voor reqel 3; de andere regels X*ki#t!Si 

■C3 S> voegt een lege reqel in voor reqel 3. 

iU E> vult regel 4 met soaties, verwijdert de regel niet. 

{4 R> vervangt regel 4 «Bt inhoud van PftD. 

■CB} zet cursor voor het zojuist qevonden woord. 

{TILL PIET> verwijdert oo current regel vanaf cursor oositie tot PIET. 

Dit zijn de meest qebruikte editor-commando's. Prooeer ze sens rustig 
met een stukje tekst. Pas oo: het is beter om na elke editor-sessie 
het »©ii»« fFtWI ?^TUf^>> te geven om te zorgem #11% Cte verbeteringen in 
POD ook echt in het geheugoM |lt««in i^l , i»*f:ivi(|if' l^tzelfde als 

met •{£MPTY-BUFFERS>). 

We kunnen nu de editor eens gaan gebruiken voor een orogramma. We se- 
lecteren een vrij block. Om gewoqn eens te ki]ken, kun je ook {1 LIST> 
intoetsen. 

Op reqel 0 moet #i|4ilrf nt aa r komen over de inhoud van het block (tussen 

haakjes). Bijvoorbeifdl" -CO P ( PIET-MET-DE-KORTE-flCHTERNflflM TEST ) >. 

Op regel 1 komt oer afsoraak de definitie van het getalstelsel . 

{IP DECIMftL> (DECIMRL zet de variabele BftSE oo 10 (HEX ogl6J). 

{3 P « TEST 10 1 DO I . LOOP ;S> (orint de getallen 1 tot i©). 

Dit is aenoeg voor een kort orograiftma. In Basic staat hier eigenliik 

FOR X « ITD l6:PRINT X:NEXT. 

Het woord I haalt de waarde van de loooteller oo de stacx. 
Al« het m^rmmA staat kunnen we FORTH intoetsen om de editor weer 
uit te schakelen ( loskoooelen) . Nu moet FORTH de woorden van het oro- 
gramma nog toevoegen aan de dictionary. Dit qaat door {N LOflD> te doen. 
Hierbij it Pi hvi n*iillHN*r van het scherm waar de tekst staat. Met een 
{VLIST> moet U kunnen zien of {TEST> er nu staat. 

Dit was een (te??) korte inleidinq in het gebruik van deze mooie taal. 
Mochten »ff sljn (ik hooo het), bel dan emt« 

In het week-end als boven^eneeed. 
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Van Maarten Lamei.T 

Prins Clauslaan 81 
7242 BN Lochem 
Tel. ! 05730 - 4427 

ontvinaen we een FORTH-DPooramma' t ie voor mensen met kinderen 
die vaak starfwerk fepiiaen. naar een idee uit het Enoelse 
tiidschPift ComotilifKi today. 



1 LIST 
SCR # 1 



0 
1 

2 

1 

4 

S 

6 

7 

8 

9 
10 
1 1 
12 
13 
14 
15 
□K 

2 LIST 



( TftFELS 
DECIMAL 



TftFEL 



> 



VAN VERMENIBVULDIBINB TQT MQX- 3200 * 

Wmm VfiRIfiBLE TOT ( VOOR VASTLEGGEN BEREIK TAFELS ) 
CR ." DIT PROGRAMMA BEREKENT DE TAFELS VAN " CR 
." VERMENIGVULDIGINB VANAF EN TOT EEN DOOR » Cl 
." DE GEBRUIKER OP TE GEVEN WAARDE. " CR CR 
. " DE GETALLEN MOETEN STEEDS IN EEN " CR 
." VIER-CIJFER COMBINATIE WORDEN OPGEBEVEN. " CR 
." m,t 10 0P6EVEN ALS 0010. " CR CR : 
1 TOT +! TEINDWAARDE PLUS 1 VOOR DE DO-LOOP ) 
TOT e VANAF g DO 11 1 DO CR I . ."X" 
J . . " = " I J * . LOOP LOOP : 



SCR 

0 
1 

2 
3 
4 
5 
G 
7 
8 
9 
10 
1 1 
12 
13 
lU 
15 
OK 



# 2 

( TAFELS 
s INVOER 



VAN VERMENIGVULDIGIMG TOT «ftX. 320© , 2 ^ 2 f 



-1 



INVOER-2 



TAFELS 



CR . " DE TAFELS MOETEN BE6INNEN BIJs 
KEY 48 - DUP . 1000 * VANAF i 
KEY 48 - DUP . 100 * VANAF +! 
KEY 48 - DUP . 10 * VANAF +! 
KEY 48 - DUP . VAI^ +! : 

( INVOER EN OMZETTEN BEGIlyttrfftttRDE ) 
EN EINDIGE^ ilJs 

10^ * TOT « 
l&Q « TOT +! 
10 * TOT +! 

TOT +! : 

( INVOER EN OMZETTEN EINDWAARDE ) 
TEKST INVOER-1 INVOER-2 TAFEL : 



CR 

KEY 48 - DUP 
KEY 48 - D»J> 
KEY 48 - DUP 
KEY 48 - DUP 



;S 




iMtloroaraMa voor ^2 CMO. 
■et 7-segient disolay. 

In editie 23 en 30, d.i. dec. 
' 83 en feb. ' 6A. Dubl iceerde 
Roland de Preetere zi.jn oro- 
graMM Schuiven en Soringen. 
Het orograMa, dat in orinci- 
oe gescnikt is o» oo elke 
6502-cDMuter te draaien, is 
bestetd voop gdifitik wt ten 
teninil. 



Roland heeft dit oroaraMia 
aangeoast voor georuik let 7- 
seaient disolav. Door alleen 
de'adrcssen voor 'scands' en 
'getkey' aan te oassen is de 
routine geschikt voor elke 
6502-coiouter ttt T-'Siqt. dis- 
olay. Het orooNum jpm dc 
adressen $200 lira it |»- 
slao, naast de zero-oaoe tffi 
de stackruiite. De sottnah 
listing telt 17 oagim's, in^ 



cluslef inleidino en label- 
file. De source-listino is 
te verkriigen door FI. 12.50 
over te schriiven oo oostre- 
kening B41433 t.n.v. W.L. v. 
Pelt te Kritoen a.d. IJssel. 
Of storten oo oostoiro 3050 
van de ANRO-bank aldaar ten 
Qunste van U.L. van Pelt. nr. 

11.06.471. 
Eurocheaue is ook toeoestun. 
■its velledig ingevuld. 



Uie kan all heloen aan aan- 
sluitgegevens on een eleKtro- 
nische schrnfaacnine Olivetti 
Praxis 30 oa te boumen tot 
orinter/terainal ? 
D. Uittenoosch. Dii^lvjm 21, 
3738 SH Maarten^ Ik. Mf#OM 
03461 - 3319 

NflflKT U SEBffiilK VAN !)£ PR0CE5- 
U dit ite redaktie dan oogeven? 



45 



LUODSJaftftOI^A^lOp'ftAMrtA 



5 5 □ E! 



KENIMER 
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B- 
V 



FIG.l 



5> 



5> 



-1 '/ixcs^ 



5aJ 

Y g.[|| ^^(j '^^(ji^ZOK 




BOUW EENS EEN MIL-JOlMOR ! 
#***«#*##*#♦**♦*#*»*♦#♦#♦♦###♦##*##* 
herziene schenta's van editie 30. pag. 



xcz = -^LS isg 



8ANK 
SELECT 



03 I>z bi 



>EXT 



Aan de tekentafel: 
Friduf Jmka«i 




Ax 



rC3 = :fiiL5(&^ 
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1 REM MIEKENING fiUTOKOSTEN 

2 REM DOOR 

3 REM WILL CUIJPERS 

4 REM MOSSELLflftN 63 

5 REM 4691 KE THOLEN : 

6 REM 01660-3566 

7 REM VC».eENDE VfiRIfiBELEN ZIJN GEBRUIKT: 

8 REM G=GELDWflflRDE K=KILOMETERS 

9 REM L=LITERS BRflNDSW V=VflSTE KOSTEN 

10 REM R=REPftRflTIES S=BELflSTINGEN 

11 REM V=VERZEKERINBEN M=MflfiNDWflflRDE 
REM J=JflfiRWflftRDE fl=BEGINWflftRDE 

13 REM E=INGEGEVEN WflfiRDE 

15 REM NflflR EEN IDEE UIT CHIP SPECIAL NO 13 

20 DIMR(12),V(12),S<12) 

30 GOTO 90 

40 REM OP 0D45 STflflT BIJ MIJ DE CLS ROUTINE 
50 CLS=USR(&"0D45", 0) : RETURN 

60 REM OP 0400 STOAT BIJ MIJ DE ROUTINE OM BfiSICTOBELLEN TE SflVEN 
9^ sEgug'sgt^^lgigSJ*?!^)"^' °" BfiSICTOBELLEN TE LADEN 

100 INPUT"BEGIN OP EERSTE MflflND VAN HET JOAR ■>:"'X* 
110 IF X*<>"Jfi"THEN 140 

120 INPUT"KILOMETERSTAND 31 DECEMBER ?:":KA 
130 GOTO 200 

140 INPUT^ONDER WELK ID-NUMMER STAAN DE OUDE 6ESEVENS OP TAPE?";D 

160 PRINT"STORT RECORDER OP PLAY, "SPRINT 

170 PRINT:PRINT:PRINT"ID-NU«MER ":D;" WORDT 6ELEZEN" 

180 Q=USR(&"045E",0) ""^uttcn 

185 PRINT"BELADEN ! ! !" 

190 PRINT:PRINT 

200 GOSUB 50: PR I NT CHR$(10) 

210 INPUT"BEREKENING VOOR DE MAAND (BEEF NO VAN DE MAAND JAN=1)"'M 

220 INPUT"KILOMETERSTAND ":KE 

230 INPUT-HOEVEEL BRONDSTDF GETANKT ";LE 

240 INPUT"BRflNDSTOFKOSTEN PER LITER ";BE 

250 BM=BM+BE:LM=LM+LE 

260 INPUT "NOG EEN KEER GETfl»«<T ":X* 

270 IF X*="JO" THEN 230 

280 KM=KE-KA:VD=KM/LM 

290 IF KM<0THEN GOSUB 1000: GOTO 200 

300 INPUT" VASTE MAONDELIJKSE KOSTEN (STALLING) ":FM!PRINT 

400 PRINT"TIJDSfiFHANKELlJKE KOSTEN" 

410 INPUT"ZOftLS REPflRflTIES EN SERVICEKOSTEN "-RE 

420 RM=RM+RE 

430 INPUT "NOG MEER REPARATIES ":X» 

440 IF X*='"J0" THEN 400 

450 INPUT"OVER HOEVEEL MAANDEN VERDELEN '':VT 
460 RM=INT(RM/(VT+0. 0001)*100+. 5)/100 

470 INPUT"WE6ENBELASTING ?:";SE 

471 INPUT" IS DIT PER KWARTAAL OF JAAR ?:";X$ 

473 IF LEFT$(X$,2)="KW"THEN SM=INT(SE/3*100+. 5) /lOOsGOTO 480 

474 IF LEFT*(X*,2)="J0"THEN SM=INT (SE/12»100+. 5) /lOOsSOTO 460 

475 GOSUB 1000:60T0 470 

480 INPUT" VERZEKERING ?:";VE 

481 INPUT"IS DIT PER MAAND, KWARTAAL, HALF JAAR OF JfiftR ?S*|l* 

482 IF LEFT$(X$, 2)="MA"THEN VM=VE:GOTO 500 ' 

483 IF LEFT*(X$, 2)="KW"THEN VM=INT ( VE/3*100+. 5) /lOO : GOTO 500 

484 IF LEFT$(X$, 2>="H0"THEN VM=INT(VE/6*100+.5)/100!S0T0 500 

485 IF LEFT$(X*,2) = "J0"THEN VM=INT (VE/12»100+. 5) /100:BOTO 50© 
490 GOSUB lOOOsfeOTO 480 

500 K=M 

510 FOR J=1T012 

520 V (K) =V (K>*'i*l»S(K)»»S(K)+S« 

530 K=K+1 

540 IF K>12 Tmt K*l 
550 NEXT J 

560 K=M:FOR J=l TO VT 
570 R(K)=R(K)+RM!K=K+1 
580 IF K> 12 THEN K»l 
590 NEXT J 

700 GOSUB 50:PRINTCHR$(10)TAB(10)"AFREKENING VOOR DE >tflftND <»!« 
710 PRINTTAB (10) "««*»«*«#*♦*##♦»#«»»#*««***#■• ,pi 
720 PRINT"BEREDEN KILOMETERS 8";KM 
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730 PRINT"GEMIDDELD VEBRUIK :l OP ":VD 

740 GM=GM+BM+FM+R(M)+S(M)+V(M) SKJ»KJ+I9« 
745 R(M)=0:V(M)=0:S(M)=0 

750 PRINT-'KDSTEN IN DE MflflND :";SM;" DFL"sPRINT 

760 BJ=BJ+BM:BD=SJ/M:LJ=LJ++LM:LD=KJ/Lj 

780 PR1NT"BEMIDDELDE MflfiNDELIJKSE KOSTEN :":BD:"DFL" 

790 PRINT"TOTflLE BRRNDSTOFHOEVEELHEID :";LJ:" LITERS" 

800 PRINT" JftPRGEMIDDELDE :l OP ":LD 

810 PRINT"KOSTEN PER KILOMETER :"GJ/KJ:" DFL" 

900 PRINT!PRINTsPRINTslNPUT"ONDER WELK ID-NUMMER WILT U DEZE BESEVEft® 

;D 

910 POKE 6777, D 

920 PRINT:PRINT"CftSETTE OP ' RECORD' EN RETURN" 

930 Q=USR<&"0400",0) 
940 PRINT"GEB«VED" 
950 END 

1000 BOSUB 50:PRINT"F0UTIVE I NVOER. NOGMAftLS" : RETURN 
OK 




Hicro Plan introduceert een Hinchestar drivt 
reiovable cartridge van het fabrikaat Syquest. 
De drive heeft een ondeforuteerde ooslagkaoaci- 
teit van 6.380.000 tekens en heeft ten aanzien 
van snelheid en betrouMbaarheid soecifikaties 
exact geUjj( a«Mti M tyoe eet vaste schijf, een 
uitvoerinQ it* Nic feverbaar is. De drive's zijn 
leverbaap voor o.a. APPLE, hebben afietingen 
kleiner dan een standaard sli*-line flop en kun- 
ntn. als teminriiii lii ftanted faiiwaziM m% 
toelaat, ingitewA iMftfiii it it emirali pracir- 
sor behuizir^. 

De drive's Horden mk koMfleit ingebouHd in een 
OBkasting qeleverd, aet oer oakastina een of 
twee drive's aet vaste of reaovalble cartridge. 
De uitvoering aet duUele drive's biedt een vel- 



IMlM ^k-uo aoaeliikhtid van drive naar drive, het reno- 
vable zijn van het ooslaoaediua betekent dat data en oro- 
graaaatuur buiten de aachine bewaard Morden. De systenen 
Horden geheel koaoleet aet bijbehorende softitare oeleverd. 
De drive's zijn schokbestendia zowel tijdens transoort als 
bedrijf en teaoeratuurongevoBlia. 

Als globale priisindikatie inaebouMd per drive in conouter 
of oakasting peldt ca. Fl. 5.000,00. De oriis van een los- 
se cartridge bedraagt ca. Fl. 300,00 en dat dan voor een 
«iil«gJ»M^<^t van S»MO.(MO ti^«ns. 

Voor nadere inforMtie kan am ziefi imMten tot: 
Micro Plan, 
ZHaanhaefsiraat 12, 
4702 LC Roosendaal 
Tel.! 01650 - 3S6ie. 




all-round 



All-round Systemen Nederland B.V., Stationsweg 23, 2182 BA Hillegom 
postbus 212, 2180 AE Hillegom. tel. 02520-19544. telex 41443 aliro nl. 

WIJ LEVEREN SNEL EN TEGEN ZEER GUNSTIGE PRIJZEN 

Diskettes 

van verschillende merken zowel 8" ais Si". Tevens formatted en 
cleaning dikettes. 



Papier 



voor kieingebruikers ieveren wij dozen van 1000 vel 38 c 



m. 



Inktlinten 

linten en kassettes voor alia gangbare printers. H 

Computermeubilair 

o.a. ideale tafeitjes om een kompleet micro systeem op te plaatsen. 

Data -safe s 

een mini safe voor 80 x 5i", of 30 x 8" diskettes. 

Opbergsystemen 

o.a. voor diskettes, tapes, kassettes en alle maten output. 

Geluiddempende kappen 

brengen het geluid van uw printer 75 tot 90% terug. 

Alles voor uw computer 

all-round 
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JUNIOR ftfiN 8" OF 5" FlOPPY VERKRIJGBflARHEID BASIC 



CaSSEHES VOOS JUMOR 



SYM-BflSIC MSSSFES v JUNIOR 



In editie 27 van augustus 83 
fflaakte Koen van Nieuwenhove 
uit Leuven (Belgie) siicdels 
een artikel ae.kenc dat zi.in 
disK oaerating svsteai diet 3e 
controller FD'l77l klaar was 
voor zijn 8" drives en ook 
voor 5".' Het systeem. oat in 
sinale density draait, even- 
als'dat van OHIO en PROTON, 
maakt aebruik van de oeneu- 
genolaatsen $1900-$190i. De- 
ze adressen xunnen worcen 
vnjDemaakt zoals hij al be- 
kend naakte in editie 25 van 
februan 1983. De rtarc- en 
software is ontleend aan ar- 
tikelen uit BYTE van »ei en 
juni 1981 en net boek 'fl 
*loooy disk oDeratino svstem 
for tne 8080' van Keiinetn B. 
Welles, uitqegeven door BYTE 
Books. Casset^ebestunng zal 
(loceliik Dliiven. terwijl de 
DOS al'draaii met de assem- 
bler van Moser, de KB9-Basic 
en Pascal. Koen nooat in sa- 
itenwerKinc net ciuoleden ook 
Micro-flde, 'ortn etc. aange- 
oast te kri icen, 
Het 8" DOS iiiaakt aebruik van 
de confiquratie 77 tracks, 
26 sectoren aer track en 128 
bytes oer sector. Het 5" DOS 
heeft 40 tracks. IBM-coniaa- 
ti3le dus. 

Oi» een indruk te geven van 
ce bevelen, nier een ooso/n- 
aiina: Save, Run. Liaits, So, 
Qu;i, Execute, Co3y. Delete, 
Directory, Exi, Free, List. 
Read. Rename, Trace. Store. 
Format, Random. LinCeiete, 
Memtest, Validate, Backuo, 
Key (sleutel toeKennen aan 
disk), wock (beveiliqen van 
een file). 

Het geoubliceerde artikel is 
verkri igbaar coor storting 
van Fl. -0,= oo aostreKenmo 
841433 t.n.v. W.L. van Pelt 
te Krimoen a.d. IJssel. Een 
Eurocheoue, mits volledig in 
oevuld, mao ook. Of overma- 
lien 03 de flMRO-bank te Srim- 
sen a.d. IJssel t.o.v. bank- 
rekenino 44. 11.06.471 t.n.v. 
W.L. van Pelt. 

FORTH voor JUNIOR is oo band 
verkrijQbaar door Fl. 12,50 
over te schrijven. 



Microsoft Basic KB9 of KB9 P NR. 1 Fw.12,50 



Johnson Comouter 
P.O. Box 523 
Medina, OHIO 44255 

Itty Bitty Comouters 
P.O. Box 53189 
San Jose. Cfl 95153 

MSB-Verlag 
Moanaolcsirasse 10 
D 7778 Markdorf 
West Dultsland 

Basic Comoiler CXB 8032 en 
Commocore 64 

Gesellsoaft fur !"!atfi. Bera- 
tuno 4 Software Dr. fluoust 
C. Quint n. b. h. 
Kaiser-Friedrich Rino 55 
D 6200 Wiesbaden 
■^el.: (06121)842685 

5.5K zelf-ontwikKelde Basic 

J.J. Janssen 
Serardsweg 30 
6525 R' Niimegen 

ASSEMBLER MOSER VERKRIJGBflflR 



H'l»!-i versie 03 band 

Ing.buro Sclirocer 
Echternacnlaan 161 
5625 KC Eindhoven 
Tel. : 040 - 421821 



VERKRIJGBflflRHEID PflSCflL 
Pascal 03 flooDv voor C 64 



Xicro-Delta Holland BV 
Kaarder 100 
1625 TN Hoorn 
Tel.! 02290 - 41555 

VERKRIJGBflflRHEID FOCfi. 
Fast Focal, een Basic-achti- 
ge interoreter met veel wis- 
kuncice fun.<ties, afkomstio 
van Tiie 6502 Prooram Excnan- 
oe, 2920 West Moana. Reno, 
NV 89509. America, bii: 

J.J. Janssen 

Gerardswea 30 

6525 RT Nijmeoen. 

VERMELD DE NAAM VAN L'W CLUB! 



Elektuur Eorom Programmer + 
flanvulling John vaii Sorang. 
4-Kolom ofinter, Conversie 
Dac naar week.Zenuwslag, Mu- 
sic Box, Dokatimer. Automa- 
Reoister Uitlezing, Lotto, 

NR. 2 FL.12.50 

Freouentieteller met 5522, 
List Mnemonics (7-seQm.ciso) 
Snift, Basicode met de SC/rP 
interface, RTTY, Easv Edit- 
ing SuD3orter (PIEi. Smcle 
Steo Debug. Wall breaker 

NR. 3 F..1250 

Renumber SYM-Basic voor ae 
Junior. flDoenc SVM-Basic v. 
Junior, Basic Comsressor v. 
Junior, NPRCHA (nieuwe orint 
routine 03 «1634). Acress 
(Kicro-flde verolaatsen). ras 
terminc R. Vissers, Outclk 
(Klok met 8 scha<eIoDorten). 

Proaramma's in de cassette- 
bibliotheex zijn afkomstio 
van onze clubleden of bewer- 
kingen uit het First Book of 
KIM,' of anderszins. fllle 
rechten van de orogramma's 
bliiven aan de auteufs voor- 
Dehbuden. De kosten van ae 
cassette ziin aileen maar 
K05tende<kend en met be- 
coeld offl de orooramma's te 
k03Bn, DE C.UB l£ £V WDRDT 
6EEN HANDEL ! 

S^M-BASIC CASSETTES v JL'NISR 
ook in te iezen met KB9 
>fR.l FL.12.50 

fl. Bruto-netto/Netto-Druto 
loonbereKening B. Hyootheek- 
bere<e'iing {f.', van Hintum) 
C. Kalender D. EeuMkalender 
E. Maoische vierkanten 
-. MoofSrexenen S. Bunny, 

H. FruitautOMaat(G.v.Roekel) 

I. Olifant J. Zeeoevecht 
K. Poker L. MaaniatTdef M. flf 
standssoel N. Bioritmes 

NR. 5 Fl. 12,50 

Service Raooorten Bestand. 



NR. 2 FL.12,50 

fl. Maanlanding B. Olifant 

C. Getal Raden D. Zeeoevecht 

E. Claire (adresaestandor, ) 

F. Poker 5. Vier oo een rii 
H. Zoe»< het Noord i. Woorc- 
soel J. Faxtuur ( Fr. Smee- 
huiizen: z:e hiervoor ook ae 
Dublikatie van Ruud Uahoff: 
(editie 23). 

NR. 3 Fl.17.50 

fl. SuDer5tartre<(nederlands) 
met handleiding 

NR. 4 F..1250 

fl. Othello (cursoroestuurd) 
B. flfstanossDel C. Safari 

D. Letters scnuiven (^'. van 
Hintum) E. Letters/ciifers- 
soel F. Getal verwisselen G. 
flutoGooIhof H. "Dammen" J. 
X-S3el K. Vier oo een rii 
L. Puzzei M. L'ztoebreide dis 
assembler (Gerard v. RoeKel) 

COMALt. K5N 

Oo de landeliike biieenkomst 
mtroduceerde Ruud Uonoff de 
zelf ontwikKelde COMflL»KGN, 
welke vriiwel aeliik is aan 
COMAL-80. Er is ssraxe van 
gestructureerc oroorammeren 
als in PASCAL, maar'in de 03- 
tekenstiil van BASIC. Zie de 
aag.2 m'editie 30. Voor de 
JUNIOR 03 band verkri lobaar 
met hancleidmc voor F."22,50 
00 giro 84l433't.n.v W.L.van 
Pelt te Knmoen a.d. IJssel. 

C'ftSTS 

Taoe Management for digital 
recorcma. Tie orogram orovi- 
des JUNIOR to taoe'management 
of a digital cassetterecorder 
over tie VIA 6522. Fastness! 
5000 bauc. Base functions! 
GET, SAVE. REWIND. INITIALI- 
SE and ABORT (jumo to PK). 
Tne command-set 'is caoable 
to be extended. 14 oao. incl. 
label-file. Price: Fl. 12,50 
nett incl. costs of transm. / 
admin. To be payed on costal 
account 841433 of Mr. W.L. van 
Pelt at Krimoen a.d. IJssel. 



